mm_mediaHelp1 mm_mediaHelp2 showClip - shows frame 1 of the clip. stepClip - steps the clip forward 5% or value of stepDist (userproperty). stepClipBack - shows frame 1 of the clip or value of stepDist. seekClip arg - jump to the (arg) frame. seekClipFromEnd arg - jump to frame (arg) from end of clip. Multimedia Widget Properties These buttons set the method that will be used to size the media when it is played...layed.d.yed. Click the CHOOSE button to select an existing clip. Click the NEW button to create and assign a new clip... chooseClip Choose... newClip New... frame inside outside enterPage notifyBefore b = "outside" x = syspageunitsperpixel y = "inside" b)-x,( b)-y, ( b)+x, ( Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description inside outside stageSizing Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description stretchMedia stretchMedia myMode stretchMedia St&retch media stretchStage Stretch sta&ge centerMedia C&enter media clipMedia Cl&ip media Media/Stage Stage... Click this button to access the stage properties dialog...... All of the widgets will respond to the following messages:....es.set of messages. playClip - plays the clip. openClip - opens the clip. closeClip - closes the clip. pauseClip - pauses the clip. stopClip - stops the clip. showClip - shows frame 1 of the clip. preLoadMedia Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description &Pre-load autoPlayMedia Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description &Auto-play autoCloseMedia Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description Auto-&close Select to use the slider to move to display the progress of a playing clip. sliderUpdate Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description &Update slider while media is playing autoPlayMedia Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description Auto-&show Select PRE-LOAD to preload the clip on enterpage for faster startup on play...n play. Select AUTOPLAY to play the clip when entering the page. Select AUTOCLOSE to close the clip when leaving the page.e.e...........e page. Select AUTO-PLAY to play the clip on enterpage..he page. asdfasdfUTOCLOSE to close the clip when leaving the page.clip when entering the page. Select AUTOCLOSE to close the clip when leaving the page.e.e...........e page. Select AUTO-CLOSE to close the clip on leavepage.he page. for faster startup on play. Select AUTOPLAY to play the clip when entering the page. Select AUTOCLOSE to close the clip when leaving the page.e.e...........e page. Select AUTO-SHOW to show the 1st frame on enterpage.. enterpage.dfUTOCLOSE to close the clip when leaving the page.clip when entering the page. Select AUTOCLOSE to close the clip when leaving the page.e.e...........e page. enterPage info dialog close keyDown = keyEnter buttonClick B"close" Close dialog buttonClick buttonClick isOpen "dialog" close Close message You must create a search index for this book before searches may be performed. Copyright 1993,1994 Asymetrix Corporation gives you permission e, revise, reuse the individual scripts your own applications. You may J entire substantial part redistribution b product. retains copyright on original elements . Include notice "Portions are contain copied Authors: Joseph Brick Jim Geldmacher (indexing hyperlinking) Jeff Ayars (path animation) Mike Florence (media widgets) Tim Pearson ( packager) Last revision: 7/13/94 Standard ToolBook messages -- initialize sysbook unlinksysbook se = sen = sysErrorNumber ss = c"tbk_tools" 1= ss removeLinks "ftsScripts" stopAnimTimer linkSysbook sysBook one getting -- bookloc=sysBookLoc( setUpDlls cexists; -- Note: menuitems added enterMenu. ss = errornumber se = menuEnabled(" cisn't there: c"Too&ls" alias " fhelpText "Custom authoring MTB30.SBK" c"&Index" tTools create Full- Search Indexes" menuItemEnabled("tbk_sysInfo" e"S&ystem "..." Displays information about 1= ss syserrornumber = sen -- load startup options: tbk_setStartup tbk_linkMessageFuncs -- sent rightClick custom clicked Property Browser chosen called obj parameter will e on: customEdit {winRef,browser 4stbk_lastWinSize sysRuntime -- used know sizing needed. H = 0,0 selectionChanged -- optimization: cache {reference tbk_linkConvert -- turn on wait cursor oldCursor = parentHandle -- came updateBrowser sel = <> obj -- display checkSelection windowsized -- value -- c, close -- was , so <> obj sends whenever Q. When something nothing -- However, ;, two . This why we post a toolbook does xyield between -- these , so we that we receive translated have been we don't image twice. gwinHan,winMes postSuccessful changed ,-mode targetWindow = xalwaysReader activateInstance a different enterWindow lastWindow isOpen 4stbk_lastActiveWindow -- Also, fanimations their starting positions -- so moved/ work %expected stops current focusWindow closeAllAnimations handles realigning 3D rectangles ( 4s_anim_idleAnimations ZnewPos, settingsTable[][] threeDeeRect = objs sz = pupp = syspageUnitsPerPixel sz > sz > inOut threeDStyle b = "sculpted" xpix = -1* syspageunitsperpixel ypix = -1* ll = lr = ur = ul = bottomLine topline m"topLine" sysSuspendMessages x"MS" ll,lr,ur ll,ul, ul,lr -- traps repositions -- user has xselected coordinate "anim_animationSettings" ss = = FALSE r= NULL dimensions( ) <> anim_startPosition(1) dx = dy = i][13] anim_StartPosition(i) + dx, 8(i) . If . (Waiting -- entermenu build menus saves on 'menuname,aliasName 4sftsMainBk --begin kludge = "combobox" selHW = selectedHotwords selT = ss = indexSettings" 1= ss loadMenus "Extra initLinks disable e"ObjectSettings" e"HotwordSettings" e"FullTextSearch" e"KeywordSearch" (sel) = 1 B,comboBox" enable -- we've loaded ss = 1= ss -- a known state: c"Center" c"Spread" e"tbk_tabOrder" "tbk_importText" "tbk_exportText" "tbk_3D" c"OLE e"tbk_taborder" "hyperLinking" "EditHyperlinkButton" "CreateHyperlinkHotword" "EditHyperlinkHotword" ftsLink ) = 1 ) = 0 ) <= 1 mm_media mmWidget mm_WidgetProps "mm_mediaWidgets" handers 6/94 mediaPackager 4 stbk_thisBook msgBox("Media 8must be saved .","Stop") "clipPkg" tbkToolsDlg( -- brings up startUp preferences dialog box tbk_startPref Preferences", lApplications tbk_AddOnApps -- exports "extra --imports a file -- calls up replace tbk_replaceScripts a required instance. searchAndReplace ,"Find tbk_sysinfo sysToolBookDirectory & " ?.exe" "Cannot find SYSINFO.EXE directory." Drawing aids: -- spreads }horizontally tbk_spreadHorz }vertically tbk_spreadVert -- shrinks < smallest tbk_shrink shrinkgrow " -- grows boggest tbk_grow Olargest" sides tbk_centerHorz O"horz" tbk_centerVert tbk_centerBoth adding 3D style !tbkToolsdlg handler. [],sel already a 3D , actually) /![1] = U![2] = f![3] = useWindowsColors on what type wants retval = ,"Set 3D ecancelled" -- extrascript Zsel,lowestlayer Zsortobjects[][] obRef = 2 more "[1] = -- -- returns values: -- fwhich $tabbing; tells -- us 'way autotab: startlayer = horzOrVert = -- sending array containing -- sorted either sortbyposition ls = i-1][ U"handlers functions HlinkSysBook. Sets section .ini. getToolBookIniItem (,itemName,defaultVal fileName iniFile() getIniVar( DLL --The following linkDLL statements O'grouped memory tbk_linkMemFuncs P"KERNEL" WORD tbk_GlobalAlloc= ,DWORD) "Free=GlobalFree( =GlobalHandle(INT) POINTER tbk_GlobalLock= sUnlock=GlobalUnlock( dealing fconversion "tb30Dlg.dll" STRING tbk_listtoTextline= fini files: tbk_linkIniFileFuncs tbk_GetIniInfo=GetPrivateProfileString( ,INT, & tbk_SetIniInfo=WritePrivateProfileString( "tb30win. dll's fdrawing tbk_linkDrawFuncs "gdi" tbk_moveto= tbk_lineto= tbk_setRop2=setROP2( tbk_createPen= INT tbk_deleteObject= tbk_selectobject= tbk_getDC= tbk_releaseDC= ) passing tbk_peekMessage= tbk_registerWindowMessage = tbk_postMessage= - INI -- sets Toolbook.ini setToolBookIniItem ,itm, -- Used property browsing) englishName ;,"friendly" U ow ` ow o ow " && ow & -- otherwise B"props" "System -- color constants xprovide. , but useful benchmarking startTime 4s_start = a_timeGetTime() endTime r(throughout 8needs itself. tbk_bookRef a locked tbk_getWinPointer memFlag = 66 ZretValue "Failed allocating -- unlocks frees supplied. tbk_freeWinPointer pMem = tbk_GlobalHandle( = tbk_GlobalUnlock( tbk_GlobalFree( a generic Pass initialization (Required.) -- What 3 viewers frames H+"Dialog1" "Dialog2" "Dialog3" -- (If 'plan nest l2can just -- In initDlg fa single dynamic parameters. -- In , HIDE If you 2calling code upon hitting ok, returnString -- In Close pageRef,captionString, i = 0 unused vRef = "&i) Z i = 3 vref "Can't than 3 dialogs!" -- store defaultpage pageref fw = -- -- holding interface -- User -- execution -- dismissed parentWindow %modal continues hidden closed. -- still #pressed OK r= "ok" -- -- stub -- doesn't filename without shortFileName fn slashLoc = 0 U(fn) Vslashloc+1 U(fn) -- finds !6location 3 bookname,booklist testName )= bookName sysversion c" MM" "mtb30.ini" enterApplication -- 6 DLLs -- sftsSetFile identifies associated cleared ftsSbk AddHyperlinkButton ftsAddLink ftsCreateLink ftsEditLink ftsModifyLink ftsGetWinPointer ftsFreeWinPointer -- pops up a entry textEntry dbCaption,dbPrompt,initVal,dType tagEntry multiline multiEntry ,dbType checks itemNumber xitem,xlist fa specified getSetFile -- stripExtension() removes , letter extension ( -- splitPath() takes a -- creates a writeDefaultSST setFile BuildIndex ftsCreateIndex ftsSearchIndex -- perform a keyword ftsKwSearch IndexSettings ftsIndexSettings level ReaderLevelSettings ftsReaderSettings =pageSettings PageSettings ftsPageSettings ftsHWSet ftsObjectSet openWaitDlg ,dbMsg closeWaitDlg inserting a U. Will maintain 0%. No duplicates ftsInsertLine txt,newLine removing a ftsRemoveLine matching ftsFindLine !winHelp context callWinHelp contextName ? stuff PathAnimation 4s_anim_sourcePage, ssm = sc = slestyle = sysLineendStyle slesize = sysLineendSize v,solidHead ! = 1,3 onBackground animate. >pathAnimation stopAnimation "aborted != copyObject( objList = getObjectList( !, "", ') > 0 U) > 0 excludeTab ) > 0 !, "stage", ) > 0 readerVisible = "0,0" , "", ) > 0 ) > 0 ) > 0 ) > 0 "SelectionHandles" currentPage >during editing 4= ssm o= sc related 7le[][] ss = 8) <> dx = N8 - dy = i8 - 8i][13] + dx, -- These ,Ghelper B -- ZLOGICAL sysSuspendState Hinstead getTickCount() #accurate calculating durations "mmSystem. Request " =@becuase mmSYSTEM. !did G properly" playing playAnimation G, notifyObject, waitTillDone :ns,s_anim_animationCache[][] & = 1 only 7 = objectAnimation( 07) = 0 theTarget = ^;ns) = 0 startAnimTimer 'being animated on restart he[i][3] <> doneAnimatingNotify "Reset he[i][12] animCount = uns) playStep j he[j][12] yieldApp() (sysMediaBreakKey) down he[i][12] !?ns = -- potential infinite loop ( reps=forever) unless ;presses Escape key ?ns) = 0 "During Idle" status ?ns, he[][] <> 0 ,@ns) <> 0 ][1] ][3] -- ][12] animating /Ans <> entries i >= -- lets users specify a jumpToStep whichStep, whichAnimation ! = 1 >) > 0 ,>[9] <>[9] ~ = 0 \>[6] m>[15] y>[4] < 0 )*4-3 >[10] )?[6] C?[6] fake tempSuspendMessages updateCel @[11], a percent 1Rfull Qlength jumpToPercent percentComplete, @) > 0 @[9]) @[9] < 0 +1)*4-3 +1)*4 8A[10] RA[6] kA[6] -- -- -B[4] JB[11], "Without Yielding" currentAnimation Fns, he[][] ZtheTickCount, StepNumber,celNumber should be on 4Kcovered Hnow? %complete = [elapsed Isince mSec] ][1])/ ][8]/1000 ][9]) ][5] ][2] + 1 ". screen so N happen simultaneously ls = >= ( ][9]* ][7]) ][7] <> 0 -- past ?V so -- ][9] * 4 + 1 ][10] -- fbuilt- ][11], ][9], -- queue 's on successful" -- Xpoint ][9]) -- +1)*4-3 +1)*4 ][10] -- ][11], -- rR currentStep ][2] -- hides shows , StepsPerCel, previousStepNumber ZCelNumberToShow,CelNumberToHide,CelCount ; so -- ( 0 corresponds -- calculate fregards -- so P starts ) -- total Cels -- i.e. n kn = 0 -- shown -- so -- i.e. n kn = 0 -- assume ,whatObject [ so no generated restoreAnimation objectList, animationList d) > 0 currentObject MPns, he[][] wPns) he[i][12] he[i][12] he[i][12] _utilities rowNum ss = LQ = Q = 1 j][1] <> M[i] = M[14] = ss = mN[14]][i] = {N[i] R1][i] = working outside `editor animationCacheEntry 0 xSns) <> 0 -- Run _ Properties anim_Offset he[][] IT = 0 he[IT][6] he[][] IT <> 0 isType( he[IT][6] = r= -1 anim_CurrentStep he[][] IT = 0 he[IT][2] he[][] IT <> 0 he[IT][2] = -- Persistent anim_NumRepetitions he[][] LOCAL IT = 0 Q) > 0 he[IT][7] he[][] IT <> 0 he[IT][7] = R) > 0 R[7] = anim_CelAnimation he[][] IT = 0 *S) > 0 8S[4] he[IT][4] he[][] IT <> 0 he[IT][4] = S) > 0 S[4] = anim_ShowAllSteps he[][] IT = 0 aT = yT) > 0 he[IT][5] he[][] IT <> 0 he[IT][5] = !U = 8U) > 0 CU[5] = anim_Duration he[][] IT = 0 U) > 0 he[IT][8] he[][] IT <> 0 he[IT][8] = oV = V) > 0 V[8] = anim_NumSteps he[][] IT = 0 W) > 0 #W[9] he[IT][9] he[][] IT <> 0 he[IT][9] = W) > 0 W[9] = anim_StepsPerCell q!he[][] IT = 0 OX = gX) > 0 uX[11] !he[IT][11] "he[][] IT <> 0 OC", F"he[IT][11] = )Y) > 0 4Y[11] = sY = Y) > 0 Y) > 0 Y[6] = a Only (persistent) anim_StartSize TZ = kZ) > 0 xZ[15] anim_EndSize Z) > 0 Z[16] anim_StartTime k$he[][] IT = 0 $he[IT][1] anim_elapsedTime $he[][] IT = 0 $he[IT][1] anim_currentTime updateAnimations `ns, [%he[][] ;`ns) whatAnim = %he[i][12] `ns) > 0 -&he[i][12] H&he[i][12] 'ans) = 0 animTimer whatHandle, whatMsg, wparam k' animTimerID, "USER" INT anim_setTimer = SetTimer ( /killTimer = KillTimer ( = 4843 _(sysClientHandle, ,20,0) ("Could xsetup o, no translateWindowMessage 0x001F 0x0113 anim_killTimer( untranslateWindowMessage 0 -- WIDGETS whatWin = HwindowHandle focuswindow showWidgetsProps obj, bj, "mm_MediaDialog" currentWin myWin = myPage = windowRefFromHandle( myStage = currentStage clipRef hasSlider B"sliderUpdate" B"preloadMedia" B"autoPlayMedia" B"autoShowMedia" B"autoCloseMedia" "stageSizing" enabled B"chooseClip" resourceCount(" 8) > 0 index settings editorScripts list dialog Startup Preferences value dialog page options info dialogs entry dialog combo dialogs section dialog widgets orScripts list dialog Startup Preferences value dialog page optio wait dlg palette Compiler SelectObject Create Search Index info dialog ftsscripts page settings reader settings update books text entry upropsdlg settings not found bottomBar changePrompt propValues searchandreplace system multi entry Widgets clipPkg foundScripts where used clipPkgChoosePath clipPkgPrompt Settings mm_firstWidget system multi entry Widgets clipPkg AddOnApps propEdit about index settings extra scripts clipPkgPaths mm_WidgetProps drawing hyperlink mm_MediaWidgets assign section value entry ThreeDee TabOrder test2 wait dlg update settings mm_mediaHelp2 Media Widgets Help browser credits assign value credits " Z " ! * ! * 6 { a k h [ } S cannon -435,1635 endpos -1890,1635 startpos scroll scroll credits names names scrollToNext scrollToNext names = >+1) r+1) The Hook Team Development Michael Ormes Brian Malcolm Dennis Clawson Dick Earl Paul Meisenheimer Rob Lanphier Steve Bard Development Bruce Jones Dan Hodge Mae Sahabu Mike Neufeld Project Management Winnie Wu Chris Carden Applications Development Charles Hiestand Jeff Ayars Jim Geldmacher Joseph Brick Michael Florence Tim Pearson Quality Assurance Jim Bartlett Michael Stahl Allan Fink Bruce Jackman Greg Eigsti Quality Assurance Joel Kittinger John Grachan Karen Johnson Stephen Shih Teron Uy Documentation Beck Andros Cynthia Peterson Lindsay Latimore Mike Pope Nancy Matthew Susan Hancock Tutorial Jennifer Tobin Margo Crandall Raine Bergstrom Reid Johnson Marketing Larry Rask Susanna Poon Technical Support Dave Hardwick Craig McDonald David Kester Diane Droubay Erik Reitan Josh Baker Ned Baker Robert Fink Terry Lee Todd Drollinger Tyrone Floyd Special Thanks Paul Allen Bert Kolde Shabbir Dahod Brent Wayland Clark Bohmont Claude Ostyn Curtis Laird Debbie Cosbey Debbie Pfeifer Harriet Landrum Jeff Day Mary Nelson Marc McDonald Shuang Li Steven Esau Steve Falcon hook2 anchor break x= y= dx = ( (xm)-x)/10 dy = ( (ym)-y)/10 Hdx,dy dx = ((xm/2-270)-x)/10 dy = ((ym/2-270)-y)/10 Hdx,dy headhole 0,0,0,0 mybounds suicide v4suicide credits enterpage 1995,1605,3060,2760 mybounds enterpage 2910,2370 realsize No controls. Click to play..play.ick stage to play.U mmPlayer mmWidget custom,newClip() boolean boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia tbk_wid_values clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia SliderUpdate MediaSizing tbk_wid_props stretchMedia mediaSizing preLoadMedia FALSE AutoPlayMedia autoCloseMedia FALSE autoShowMedia Multimedia Widget tbk_wid_name enterPage leavePage enterpage wait dlg palette Compiler 2925,2715 realsize Rewind, Step Back, Pause, Stop, Play, Step Forward, Fast Forward., Step Forward, Fast Forward. mmPlayer mmwidget_stage myStage mmWidget custom,newClip() boolean boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia tbk_wid_values clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia SliderUpdate MediaSizing tbk_wid_props stretchMedia mediaSizing preLoadMedia FALSE AutoPlayMedia autoCloseMedia FALSE autoShowMedia Multimedia Widget tbk_wid_name mmwidget_controls 150,1816,2715,2191 llplayClip buttonClick buttonClick playClip 1616,1816,1982,2191 aspect pause pauseClip buttonClick buttonClick pauseClip 883,1816,1249,2191 aspect DystopClip buttonClick buttonClick stopClip 1249,1816,1616,2191 aspect step forward pstepClip buttonClick mmYieldApp pstepClip buttonStillDown buttonClick stepClip --HACK: should use mmYield mmYieldApp() aspect 1982,1816,2348,2191 fast forward seekClipFromEnd buttonClick buttonClick seekClipFromEnd 0 aspect 2348,1816,2715,2191 step backward stepClipBack buttonClick mmYieldApp stepClipBack buttonStillDown buttonClick stepClipBack --HACK: should use mmYield mmYieldApp() aspect 517,1816,883,2191 rewind _seekClip start buttonClick buttonClick seekClip aspect 150,1816,517,2191 mmwidget_stage enterPage leavePage Pause/Play, Stop and a slider to show or set the current position.on. mmPlayer mmwidget_stage myStage mmWidget hasSlider FALSE sliderUpdate Multimedia Widget tbk_wid_name clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia SliderUpdate MediaSizing tbk_wid_props custom,newClip() boolean boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia tbk_wid_values stretchMedia mediaSizing preLoadMedia FALSE AutoPlayMedia autoCloseMedia FALSE autoShowMedia mmwidget_stage mmwidget_controls 150,1809,2715,2184 mmwidget_controls realname myStage myClip pauseClip llplayClip ,3clipRef whatStage playing status buttonClick buttonClick myStage = whatStage() myClip = clipRef status = mmStatus "playing" pauseClip playClip 150,1809,525,2184 PlayPause realname DystopClip buttonClick buttonClick stopClip 525,1809,900,2184 slider 900,1809,2715,2184 slider realname lastTickCount frame slider thumb sized author moved lastX lastX setPos sized ssm = syssuspendmessages = TRUE syspageunitsperpixel moved bnds = setPos x lastX x = NULL x < 0 x = 0 x > 1 x = 1 myWid = ( backWid = <*x)- = ssm lastX thumb realname enterpage leavePage leavePage 2910,2730 realsize Pause, Stop, Play and a slider to show or set the current position. mmPlayer mmwidget_stage myStage mmWidget hasSlider FALSE sliderUpdate custom,newClip() boolean boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia tbk_wid_values clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia SliderUpdate MediaSizing tbk_wid_props stretchMedia mediaSizing preLoadMedia FALSE AutoPlayMedia autoCloseMedia FALSE autoShowMedia Multimedia Widget tbk_wid_name mmwidget_stage mmwidget_controls 150,1815,2715,2190 Pause pauseClip buttonClick buttonClick pauseClip 150,1815,525,2190 DystopClip buttonClick buttonClick stopClip 525,1815,900,2190 llplayClip buttonClick buttonClick playClip 900,1815,1275,2190 slider 1275,1815,2715,2190 lastTickCount frame slider thumb sized author moved lastX lastX setPos sized ssm = syssuspendmessages = TRUE syspageunitsperpixel moved bnds = setPos x lastX x = NULL x < 0 x = 0 x > 1 x = 1 myWid = ( backWid = <*x)- = ssm lastX enterpage leavePage leavePage widgets screen reader author notifyBefore FALSE allowDrop frame description frameupdate frameupdate b = "description" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description description reader author newobj showWidgetsProps s_art_dragObj howBig default endDrag endDrag obj, loc, whatViewer SYSTEM s_art_dragObj = default whatHandle = windowHandle H = NULL = TRUE howBig = newobj = copyObject( , currentPage windowRefFromHandle( nnewObj = FALSE showWidgetsProps mm_firstWidget 2910,2730 realsize Pause, Stop, Play and a slider to show or set the current position.ion. or set the current position. mmPlayer mmwidget_stage myStage mmWidget hasSlider FALSE sliderUpdate custom,newClip() boolean boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia tbk_wid_values clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia SliderUpdate MediaSizing tbk_wid_props stretchMedia mediaSizing 160,120 mmMediaSize autoCloseMedia preLoadMedia FALSE autoPlayMedia FALSE autoShowMedia Multimedia Widget tbk_wid_name mmwidget_controls 150,1813,2715,2188 Pause pauseClip buttonClick buttonClick pauseClip 150,1813,525,2188 DystopClip buttonClick buttonClick stopClip 525,1813,900,2188 llplayClip buttonClick buttonClick playClip 900,1813,1275,2188 slider 1275,1813,2715,2188 lastTickCount frame sliderline slider thumb sized author moved lastX lastX setPos sized ssm = syssuspendmessages = TRUE syspageunitsperpixel moved bnds = setPos x lastX x = NULL x < 0 x = 0 x > 1 x = 1 myWid = ( backWid = <*x)- = ssm lastX mmwidget_stage mmwidget_stage myStage 160,120 mmMediaSize enterpage leavePage leavePage mm_mediaHelp mm_MediaHelp buttonclick buttonclick close "mm_MediaHelp" mm_mediaHelp1 mmwidget_stage 5625,2923,6000,3298 pause 5507,2806,5875,3181 aspect 5875,2806,6245,3181 aspect step forward aspect 6613,2806,6981,3181 fast forward aspect 6981,2806,7350,3181 step backward aspect 5139,2806,5507,3181 rewind aspect 4770,2806,5139,3181 Click the PLAY button to play the clip. The clip will play from its current location.. Click the STOP button to stop the clip. The clip will hide and rewind to the beginning.nd Click the PAUSE button to pause the clip. The clip will still be visible. Click the STEP FORWARD button with a paused clip to move ahead 5% of the clip. Click the STEP BACKWARD button with a paused clip to move back 5% of the clip.. Click the FAST FORWARD button to move to the end of a paused clip. Click the REWIND button to move to the end of a paused clip. slider 900,1830,2730,2205 slider realname lastTickCount frame slider thumb lastX thumb realname The STAGE object specifies where and how the visual media will be played. The SLIDERS are used to view and change the current frame of a clip. When a clip is playing, the slider will (if enabled) update to display the current position. If the clip is paused, the sliders can be user to move through a clip. slider 1275,1828,2730,2203 lastTickCount frame sliderline slider thumb lastX Multimedia Widget Elementses mm_WidgetProps frame inside outside enterPage notifyBefore b = "outside" x = syspageunitsperpixel y = "inside" b)-x,( b)-y, ( b)+x, ( Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description inside outside stageSizing myMode buttonClick buttonClick myMode mode value = FALSE = TRUE Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description stretchMedia stretchStage myMode stretchMedia St&retch media stretchStage Stretch sta&ge centerMedia C&enter media clipMedia Cl&ip media frame enterPage notifyBefore b = "clip" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description Assigned Clip buttonclick buttonclick close shownBy Close frame inside outside enterPage notifyBefore b = "outside" x = syspageunitsperpixel y = "inside" b)-x,( b)-y, ( b)+x, ( Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description inside outside On EnterPagee sliderUpdate Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description &Update slider while media is playing Media/Stage chooseClip currentWin animation bitmap digitalVideo overlay whatClip currentObj whatWin Only clips of visual media can be used. buttonClick buttonClick whatWin = currentWin shownBy obj = currentObj windowRefFromHandle( resourceCount("clip", 8) = 0 clips 8) <> 0 whatClip = chooseResource(" #<> NULL mmMediaType "animation bitmap digitalVideo overlay" "Only visual media can be used." Choose... newClip currentWin animation bitmap digitalVideo overlay whatClip currentObj whatWin Only clips of visual media can be used. buttonClick buttonClick whatWin = currentWin shownBy obj = currentObj windowreffromhandle( clips resourceCount(" 8) <> 0 whatClip = chooseResource(" %<> NULL mmMediaType "animation bitmap digitalVideo overlay" "Only visual media can be used." New... Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description clip id 100 mm_MediaHelp2 mm_MediaHelp buttonclick buttonclick "mm_MediaHelp" currentPage "mm_MediaHelp2" %modal currentWin whatStage <+currentStage whatWin currentObj buttonclick buttonclick whatWin = currentWin shownBy whatStage = currentStage obj = currentObj windowRefFromHandle( sysTool = Stage... preLoadMedia Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description &Pre-load autoPlayMedia preLoadMedia buttonClick buttonClick enabled B"preLoadMedia" = Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description &Auto-play autoCloseMedia Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description Auto-&close autoShowMedia preLoadMedia buttonClick buttonClick enabled B"preLoadMedia" = Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description Auto-&show frameUpdate enterPage clip id 100 stretchStage palette mm_MediaWidgets 15,15 lastUnits flipPages -$, #? right previous number mm_MediaWidgets mm_MediaImager targetPage direction buttonclick buttonclick "mm_MediaImager" direction = " targetPage = firstPage = "mm_MediaWidgets" = Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description previous number -$, #? widgets enterpage notifyBefore = "1 /"widgets" Stage object with controls. Pause, Stop, Play and a slider to indicate or set the current position. description 1 of 55tion showWidgetsProps newObj whatWindow whatObject mm_MediaImager buttonClick buttonClick whatObject = currentPage "mm_MediaImager" newObj = copyObject( whatWindow = windowHandle showWidgetsProps Copy to Book cancel buttonclick buttonclick close Cancel cancel mm_MediaHelp1 mm_MediaHelp buttonclick buttonclick "mm_MediaHelp" currentPage "mm_MediaHelp1" %modal target .&+ +E mouseEnter default mouseLeave mm_mediaImager s_art_dragObj mm_MediaImager buttonDown = default {loc, isShift, isControl SYSTEM s_art_dragObj currentPage "mm_MediaImager" "mm_mediaImager" U silently enterpage AddOnApps in,false ThreeDeeRect bottomLine topLine Choose an &Application appList iconDisplay appStuff pageRef vshowIcon appName appRef appDescr buttonclick keyup runApp buttonDoubleClick buttonclick pageRef = stl = selectedTextLines appRef = tabloc = appStuff = VtabLoc + 1 appName = appDescr = showIcon BiconDisplay flushMessageQueue() runApp buttonclick buttonclick cancel buttonclick buttonclick Cancel in,ms ThreeDeeRect bottomLine topLine iconDisplay appDescr Launches the ToolBook ScrapBookpt Editorpt programming. Effect drawing snapToGrid S&nap to Grid showGrid S&how Grid &Grid Spacing: in,ms ThreeDeeRect bottomLine topLine gridspacing leavefield t = t < .02 "0.02" %"0"&sysdecimal&"000" decimal ftype 0.063002333333333e-002 &Polygon Shape: in,ms ThreeDeeRect bottomLine topLine polygonShape MoldText enterField ,!Jc" Error: sysPolygonShape must be a value between 3 and 99 MoldText leaveField oldText xisType(real, >= 3 <=99 ) "Error: must be a value between 3 oldText polygonshape polygonShape update update buttondown update buttondoubleClick update buttonstilldown enterbutton leavebutton enterpage update "polygonShape" j(99, "polygonshape" buttondoubleClick notifyBefore &Button polygonshape polygonShape update update buttondown update buttonstilldown update buttondoubleclick enterbutton leavebutton enterpage update "polygonShape" "polygonshape"-1) notifyBefore &Button colorPaletteDlg colorPaletteDlg recRef retcolor scolor tb30DLG.DLL buttonclick -- allows user specify buttonclick linkDLL "tb30DLG. STRING colorPaletteDlg (WORD, BYTE, recRef = rgb = rgbfill retcolor = _(windowhandle retColor "scolor" fcolor &Fill Color: fcolor scolor &Stroke Color: scolor patternGroup patternFlipper solidFill pattern custom solidStroke update pttrn solidFill pattern solidStroke pttrn chooser control pttrn value "patternFlipper" B"custom" update solidFill patternFlipper buttonclick buttonclick "patternFlipper" Solid Fi&ll solidStroke patternFlipper buttonclick buttonclick "patternFlipper" Solid Stro&ke custom patternFlipper buttonclick buttonclick "patternFlipper" &Custom patternFlipper pattern update update pattern pattern pattern update update update buttondown update buttondoubleClick update buttonstilldown enterbutton leavebutton enterpage update j(128, buttondoubleClick notifyBefore &Button pattern update update update buttondown update buttonstilldown update buttondoubleclick enterbutton leavebutton enterpage update notifyBefore &Button drawDirect &Draw Direct units Pattern::::: out,ms ThreeDeeRect bottomLine topLine fcolor out,ms ThreeDeeRect bottomLine topLine scolor enterpage stuff 120,25.125,100 0,0,0 0,0,0 character buttonclick buttonclick &Character: character &First Line: in,ms ThreeDeeRect bottomLine topLine firstLine decimal ftype 0.000002333333333e-002 From &Left: in,ms ThreeDeeRect bottomLine topLine fromLeft decimal ftype 0.000002333333333e-002 From &Right: T / 2 B ~ in,ms ThreeDeeRect bottomLine topLine fromRight decimal ftype 0.000002333333333e-002 &Alignment: alignment Leftt Right Line &Spacing: linespacing Single Single 1 1/2 Double &Tabs tabbuttons decimalTabs leftTabs tType Decimal leftTabs tType tType value B"leftTabs" B"decimalTabs" "Left" "Decimal" leftTabs L&eft Tabs decimalTabs &Decimal Tabs S&pacing: Indentation: units in,ms ThreeDeeRect bottomLine topLine tabSpacing decimal ftype 0.5001 System Startup Preferences in,false ThreeDeeRect bottomLine topLine folder mytabheight myNumTabs myTabMode myTabSpace Folder tbk_wid_Name tabHeight numTabs tabMode tabSpace tbk_wid_props list,1,2,3,4,5,6 tbk_wid_values obtype tabHighlight tabLabel obtype tabHighlight tabLabel obtype tabHighlight tabLabel Drawing obtype tabHighlight tabLabel Drawing goPage Dra&wing obtype tabHighlight tabLabel goPage Te&xt obtype tabHighlight tabLabel system goPage S&ystem highlight system updateIni bookref tbk_bookRef drawing buttonclick buttonclick bookref = tbk_bookRef() updateIni "drawing" close buttonclick buttonclick close Cancel wait dlg palette Compiler system leavefield maxsize = 14 t = Page W&idth: in,ms ThreeDeeRect bottomLine topLine Pagewidth 0.000 Page &Height: in,ms ThreeDeeRect bottomLine topLine pageHeight 0.000666666666667 showHotwords Show Hotwor&ds showRulers Show Ru&lers readerRightClick Reader Right &Click recordHistory Recor&d History Sys&Books Path: c:\mtb30\0\\final\\ate\c:\jxbeta\animate\clrftbktool2.sbk c:\jxbeta\ bottomLine topLine sysbooks w, #> Path: gpathinfo tabloc Path: updatePath updatePath keyup updatePath buttonup updatePath stl = selectedtextlines txt = tabloc = Z: "&pathinfo( Add SysBook tb30dlg.dll fileAndDir filendir SysBooks (*.sbk),*.sbk,ToolBook (*.tbk),*.tbk,All Files (*.*),*.* filterList OpenFileDlg sysbooks openFileDlg updatePath buttonclick buttonclick X"tb30dlg.dll" STRING openFileDlg ( , INT) filterList = "SysBooks (*.sbk),*. ,ToolBook (*.tbk),*. ,All Files (*.*),*.*" OpenFileDlg("Add R", NULL, m, 1) fn = fref = filendir = fileAndDir(fn) selectedTextLines updatePath remove sysbooks updatePath buttonclick initEnabled buttonclick sysbooks initEnabled buttonclick fref = stl = selectedTextLines tc = tc > 0 selectedtextlines o,tc) updatePath notifyAfter initEnabled oenabled &Remove units buttonclick mtb30.sbk c:\mtb30\0\ about initdlg cancel keychar cancel initdlg keyEnter close ToolBook Property Browser buttonclick buttonclick close Written in Multimedia ToolBook 3.0 Asymetrix Corporationnnnn. extra scripts This page contains some extra scripts. This is so the book script won't have so many handlers.................. ThreeDee Sample: in,false ThreeDeeRect bottomLine topLine sample in,ms ThreeDeeRect bottomLine topLine stylebuttons updatesample buttonclick raised inset ThreeDeeStyle raised ThreeDeeStyle buttonclick updatesample ThreeDeeStyle value B"raised" B"inset" "out" inset &Inset raised &Raised Style Add 3-D Style to SelectionObjects buttonclick buttonclick cancel buttonclick buttonclick Cancel in,false ThreeDeeRect bottomLine topLine Border borderbuttons =checkedButton updatesample buttonclick false sculpted =checkedButton border =checkedButton border buttonclick ocheckedButton updatesample border value -- backwards compatibility earlier version "sculpted" checkedButton out,ms threeDeeRect sculpted &Sculpted &MS Style &None TabOrder LayerNum initDlg cancel keychar sEreturnstring layerNum lefttoRight retval cancel -- initializes dialog that prompts user change 9order. -- value[1] has the starting initDlg "LayerNum" keyEnter "layerNum" retval B"lefttoRight" n = 1 n = 2 returnstring close in,false ThreeDeeRect bottomLine topLine Edit Tab Order of SelectionObjects &Starting Layer: in,ms ThreeDeeRect bottomLine topLine LayerNum 0123456789 keychar keyEnter "0123456789" LeftToRight &Left to Right TopToBottom &Top to Bottom Apply Order: buttonclick buttonclick cancel buttonclick buttonclick Cancel foundScripts foundScripts U"searchString initDlg foundScripts cancel cancel keychar tb30win.dll {keyF5} Cssendkeys {keyEscape}+{keyF5} sendkeys editScript -- initializes dialog that shows the user found strings. -- value[1] has Dcontaining )cript initDlg "foundScripts" searchString close keyEnter -- edits editScript obj, searchText X"tb30win.dll" sendkeys( }",0) focusWindow instructions Edit scripts of objects: in,ms ThreeDeeRect bottomLine topLine foundScripts .&+ + nameOffset stbk_searchString nameOffset stbk_searchString buttondoubleclick -- edits the found 4stbk_searchString selectedTextlines obj = nameOffset = ~("(", $-1) editScript Page id 59 ("clipPkg") Button id 5 of Page id 59 Button id 30 of Page id 60 ("help") Page id 20 ("ftsscripts") Page id 35 ("reader settings") Group id 52 of Page id 51 ("slider") Group id 20 of Page id 52 ("slider") Group id 83 of Page id 53 ("slider") Background id 49 ("credits")ge id 10 ("extra scripts") Page id 15 ("AddOnApps") Page id 14 ("drawing") Page id 15 ("AddOnApps")age id 1 ("header") ComboBox id 8 of Page id 1 ("cheader") Group id 53 of Page id 1 ("textHeader") Field id 3 of Page id 1 ("fheader") Button id 50 of Page id 1 ("check") Button id 51 of Page id 1 ("x") Button id 52 of Page id 1 ("dialog") Group id 2 of Page id 1 ("propgroup") Field id 0 of Page id 1 ("propname") Field id 1 of Page id 1 ("propvalue") Group id 6 of Page id 1 ("propButtonGroup") Line id 78 of Page id 1 ("splitter") Page id 2 ("propValues") Button id 2 of Page id 2 ("testing") Page id 3 ("propEdit") Button id 1 of Page id 3 Button id 2 of Page id 3 Page id 4 ("upropsdlg") Field id 1 of Page id 4 ("upropname") Button id 4 of Page id 4 Button id 5 of Page id 4 Page id 5 ("searchandreplace") Group id 191 of Page id 5 ("folder") Field id 0 of Page id 5 ("findString") Button id 6 of Page id 5 ("ok") Button id 7 of Page id 5 ("cancel") Page id 6 ("changePrompt") Button id 3 of Page id 6 Button id 4 of Page id 6 Button id 5 of Page id 6 Button id 6 of Page id 6 Page id 7 ("foundScripts") Field id 0 of Page id 7 ("foundScripts") Button id 6 of Page id 7 Button id 7 of Page id 7 Page id 8 ("TabOrder") Field id 5 of Page id 8 ("LayerNum") Button id 1 of Page id 8 Button id 2 of Page id 8 Page id 9 ("ThreeDee") Group id 12 of Page id 9 ("stylebuttons") Button id 14 of Page id 9 ("sculpted") Button id 17 of Page id 9 Button id 18 of Page id 9 Page id 10 ("extra scripts") Page id 11 ("about") Button id 3 of Page id 11 Background id 11 ("Startup Preferences") Group id 36 of Background id 11 ("folder") Button id 47 of Background id 11 Button id 48 of Background id 11 Page id 12 ("system") Group id 21 of Page id 12 Field id 4 of Page id 12 ("sysbooks") Button id 6 of Page id 12 Button id 7 of Page id 12 ("remove") Page id 13 ("text") Button id 26 of Page id 13 Button id 24 of Page id 13 ("character") Group id 25 of Page id 13 ("tabbuttons") Page id 14 ("drawing") Field id 8 of Page id 14 ("gridspacing") Button id 23 of Page id 14 Button id 24 of Page id 14 Field id 22 of Page id 14 ("polygonShape") Group id 43 of Page id 14 Group id 40 of Page id 14 ("patternGroup") Button id 37 of Page id 14 ("solidFill") Button id 38 of Page id 14 ("solidStroke") Button id 33 of Page id 14 ("custom") Group id 39 of Page id 14 ("patternFlipper") Button id 35 of Page id 14 Button id 36 of Page id 14 Page id 15 ("AddOnApps") Field id 1 of Page id 15 ("appList") Button id 3 of Page id 15 Button id 4 of Page id 15 buttonclick buttonclick cancel buttonclick buttonclick Close fixUpRes searchString unlinkDLL changePrompt in,ms ThreeDeeRect bottomLine topLine scriptDisplay vwrRef = viewer "standard" of ftsSbk()tsSbk()faultValem,4096,"toolbook.ini")hor with helpText "Runs application specified in ToolBook.ini file."n the book."le."."o upper-most objects."" objectRef Page id 20 ("ftsscripts")"OLS30.SBK"er")") ("C:\JXBETA\0PROJ\LIBRARY\LIBRARY.TBK") buttonclick buttonclick buttonclick buttonclick EyyestoAll buttonclick buttonclick yestoAll Yes to &All cancel buttonclick buttonclick &Cancel Replace ftsSbk() with tbk_bookRef() in this script? script? script? in this script? in this script? findString replaceString valueLabel cklist,bac searchandreplace 31,38 selectChars sysSuspend searchString folder mytabheight myNumTabs myTabMode myTabSpace Folder tbk_wid_Name tabHeight numTabs tabMode tabSpace tbk_wid_props list,1,2,3,4,5,6 tbk_wid_values obtype tabHighlight tabLabel obtype tabHighlight tabLabel obtype tabHighlight tabLabel obtype tabHighlight tabLabel Drawing goPage obtype tabHighlight tabLabel goPage &Replace obtype tabHighlight tabLabel system goPage &Find highlight Fin&d What: in,ms ThreeDeeRect bottomLine topLine findString &updateStartButton keychar updateStartButton &updateStartButton keyup enterField &updateStartButton paste &updateStartButton &updateStartButton clear updateStartButton bref = B"ok" allowSearch = ( enabled notifyAfter replaceWith Repla&ce: in,ms ThreeDeeRect bottomLine topLine ReplaceString enterField matchword Match &Whole Word Only firstfind Stop &After First Find prompt &Prompt Before Changes Search Ran&ge: range Scripts of all objectsarchysipts Scripts of all objects Page/background/book scripts Scripts in object hierarchyipts buttonclick buttonclick Start cancel cancel buttonclick buttonclick Close instructions Search Scriptslace Scriptsipts in this book paste clear unlinkDLL cklist,bac searchandreplace upropsdlg upropname System variable &Value: Property &Value: System variable &Name: Property &Name: namelabel upropvalue valuelabel initDlg upropname enterpage keychar upropname sEreturnString upropvalue cancel initDlg value[] Bnamelabel "System ^&Name:" Bvaluelabel ^&Value:" "Property & "upropname" "upropvalue" close -- sent used Hstandard dialog ZretString returnString 12,14 selectChars cancel retval stbk_vref searchString nameLabel Property &Name: in,ms ThreeDeeRect bottomLine topLine upropname keychar valueLabel Property &Value: in,ms ThreeDeeRect bottomLine topLine upropvalue zashowOrHideScrollbar enterPage zashowOrHideScrollbar keyup zashowOrHideScrollbar zashowOrHideScrollbar clear zashowOrHideScrollbar paste showOrHideScrollbar notifyAfter showOrHideScrollbar E> 0 buttonclick buttonclick cancel buttonclick buttonclick Cancel enterPage adsfasdf asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda propEdit cancel retval propname &Edit Song: in,ms ThreeDeeRect bottomLine topLine Propedit zashowOrHideScrollbar enterPage zashowOrHideScrollbar keyup zashowOrHideScrollbar zashowOrHideScrollbar clear zashowOrHideScrollbar paste showOrHideScrollbar enterField notifyAfter showOrHideScrollbar E> 0 0,2,2,25,0 0,2,1,32,0 0,2,0,56,0 0,0,0,62,90 0,0,9,36,50 0,0,1,31,100 19,1,0,62,90 20,0,9,51,30 20,0,0,62,90 27,1,0,62,90 30,0,0,62,90 30,0,9,51,30 30,1,1,31,100 37,1,0,62,90 38,0,2,55,50 39,0,2,58,50 40,0,9,42,50 40,0,2,62,50 40,0,1,38,100 47,1,0,62,90 60,0,9,51,30 60,0,0,62,90 67,1,0,62,90 70,0,0,62,90 70,1,1,38,100 70,0,9,51,30 77,1,0,62,90 80,0,1,31,100 80,0,9,36,50 80,0,0,62,90 88,1,0,62,90 100,0,9,51,30 100,0,0,55,90 105,1,1,31,100 109,1,0,55,90 110,0,9,51,30 119,0,2,62,25 120,0,2,55,25 120,0,9,42,50 120,0,1,38,100 120,0,0,58,90 121,0,2,58,25 131,1,0,58,90 140,0,9,51,30 140,0,0,62,90 145,1,1,38,100 150,1,0,62,90 150,0,9,51,30 160,0,9,36,50 160,0,1,29,100 160,0,0,60,90 175,1,0,60,90 180,0,0,60,90 180,0,9,51,30 185,1,1,29,100 187,1,0,60,90 190,0,0,60,90 190,0,9,51,30 197,1,0,60,90 198,0,2,53,25 199,0,2,57,25 200,0,0,60,90 200,0,1,36,100 200,0,2,60,25 200,0,9,42,50 210,1,0,60,90 220,0,9,51,30 220,0,0,60,90 225,1,1,36,100 226,1,0,60,90 230,0,0,60,90 230,0,9,51,30 235,1,0,60,90 240,0,1,29,100 240,0,0,60,90 240,0,9,36,50 250,1,0,60,90 260,0,0,53,90 260,0,9,51,30 265,1,1,29,100 269,1,0,53,90 270,0,9,51,30 278,0,2,53,25 279,0,2,57,25 280,0,9,42,50 280,0,2,60,25 280,0,1,26,100 280,0,0,57,90 291,1,0,57,90 300,0,9,51,30 300,0,0,60,90 305,1,1,26,100 310,1,0,60,90 310,0,9,51,30 320,0,1,31,100 320,0,9,36,50 320,0,0,62,90 335,1,0,62,90 340,0,0,62,90 340,0,9,51,30 345,1,1,31,100 346,1,0,62,90 350,0,9,51,30 350,0,0,62,90 357,1,0,62,90 358,0,2,55,25 359,0,2,58,25 360,0,1,38,100 360,0,0,62,90 360,0,2,62,25 360,0,9,42,50 369,1,0,62,90 380,0,0,62,90 380,0,9,51,30 385,1,1,38,100 385,1,0,62,90 390,0,0,62,90 390,0,9,51,30 396,1,0,62,90 400,0,0,62,90 400,0,1,31,100 400,0,9,36,50 415,1,0,62,90 420,0,0,64,90 420,0,9,51,30 425,1,1,31,100 430,0,9,51,30 435,1,0,64,90 438,0,2,55,25 439,0,2,58,25 440,0,0,65,96 440,0,2,62,25 440,0,9,42,50 440,0,1,38,100 455,1,0,65,90 455,1,1,38,100 460,0,0,67,100 460,0,9,51,30 470,0,9,51,30 475,1,0,67,90 480,0,0,65,90 480,0,1,29,100 480,0,9,36,50 495,1,0,65,90 500,0,9,51,30 500,0,0,62,90 510,0,9,51,30 510,1,1,29,100 514,1,0,62,90 518,0,2,50,25 519,0,2,53,25 520,0,9,42,50 520,0,2,57,25 520,0,0,60,90 520,0,1,26,100 533,1,1,26,100 534,1,0,60,90 540,0,1,29,100 540,0,0,57,90 540,0,9,51,30 550,0,9,51,30 553,1,1,29,100 554,1,0,57,90 557,1,9,51,30 560,0,2,55,25 560,0,9,36,50 560,0,0,55,90 560,0,2,50,25 560,0,9,49,45 560,0,9,46,50 560,0,1,31,100 560,0,2,43,25 590,1,1,31,100 594,1,0,55,90 598,0,2,43,25 599,0,2,55,25 600,0,0,55,90 600,0,9,46,50 600,0,9,36,50 600,0,9,49,45 600,0,2,50,25 600,0,1,31,100 630,1,9,46,50 630,1,1,31,100 630,1,2,55,25 630,1,2,43,25 630,1,2,50,25 630,1,9,49,45 634,1,0,55,90 asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda asdfasd asdfsda buttonclick buttonclick cancel buttonclick buttonclick Cancel enterPage propValues AT?T?T?- props .+background fillColor,color,hls idNumber,na imageInvalid,na name,text notifyObjects,na object,na objectCount,na objects,na pageCount,na parent,na pattern,text percentFreeSpace,na rgbFill,color,rgb rgbStroke,color,rgb script,script size,text storedImages,na storeImage,boolean strokeColor,color,hls uniqueName,na userProperties,na useWindowsColors,boolean +Book activeCacheFile,text backgroundCount,na buildCacheFile,list,never,temporary,permanent cacheFileType,list,minimal,preferred,extended CDMediaPath,text customColors,text footer,text header,text HDMediaPath,text hotwordColor,color,hls hotwordStyle,list,color,frame,none keepMenuBar,boolean name,na object,na pageCount,na palette,text saveOnClose,list,yes,no,ask,system script,script size,text solidColorsEnabled,boolean uniqueName,na userProperties,na windows,na +button borderStyle,list,none,checkBox,label,radioButton,rectangle,rounded,pushButton,shadowed,checkBox3D,radioButton3D bounds,text caption,text CaptionPosition,list,auto,bottom,top,left,right,center checked,boolean checkedGraphic,text defaultAllowDrag,boolean defaultAllowDrop,boolean disabledGraphic,text dragImage,text drawDirect,boolean enabled,boolean excludeTab,boolean fillColor,color,hls fontFace,font,text fontSize,font,text fontStyle,font,text highlight,boolean idNumber,na invert,boolean invertGraphic,text layer,text name,text noDropImage,text normalGraphic,text notifyAfterMessages,na notifyBeforeMessages,na object,na parent,na position,text rgbFill,color,rgb rgbStroke,color,rgb script,script size,text stretchGraphic,boolean strokeColor,color,hls textOverflow,na textUnderflow,na transparent,boolean uniqueName,na userProperties,na useWindowsColors,boolean vertices,text visible,boolean +comboBox bounds,text defaultAllowDrag,boolean defaultAllowDrop,boolean dragImage,text drawDirect,boolean dropDownItems,multiLine editable,boolean enabled,boolean fillColor,color,hls fontFace,font,text fontSize,font,text fontStyle,font,text idNumber,na layer,text lineCount,na name,text noDropImage,text notifyAfterMessages,na notifyBeforeMessages,na object,na parent,na position,text rgbFill,color,rgb rgbStroke,color,rgb script,scriot scrollable,boolean selectedItem,text size,text sortItems,boolean strokeColor,color,hls text,text textOverflow,na textUnderflow,na transparent,boolean uniqueName,na userProperties,na useWindowsColors,boolean vertices,text visible,boolean +field activated,boolean baselines,boolean borderStyle,list,none,rectangle,inset,raised,shadowed,scrolling bounds,text defaultAllowDrag,boolean defaultAllowDrop,boolean dragImage,text drawDirect,boolean drawTextDirect,boolean enabled,boolean fieldType,list,wordWrap,noWrap,singleLineWrap,singleSelect,multiSelect fillColor,color,hls fontFace,font,text fontSize,font,text fontStyle,font,text idNumber,na indents,text layer,text name,text noDropImage,text notifyAfterMessages,na notifyBeforeMessages,na object,na objects,na parent,na position,text rgbFill,color,rgb rgbStroke,color,rgb richText,multiLine script,script scroll,text selectedTextLines,text size,text spacing,text strokeColor,color,hls tabSpacing,text tabType,list,left,decimal text,multiLine textAlignment,list,left,right,center,justify textOverflow,na textUnderflow,na transparent,boolean uniqueName,na userProperties,na useWindowsColors,boolean vertices,text visible,boolean +oneDgraphics bounds,text defaultAllowDrag,boolean defaultAllowDrop,boolean dragImage,text drawDirect,boolean fillcolor,color,hls idNumber,na layer,text lineEndSize,text lineEndStyle,text lineStyle,list,none,1,2,3,4,6,8,dotted,dashed name,text noDropImage,text notifyAfterMessages,na notifyBeforeMessages,na object,na parent,na position,text rgbFill,color,rgb rgbStroke,color,rgb script,script size,text strokeColor,color,hls transparent,boolean uniqueName,na userProperties,na useWindowsColors,boolean vertices,text visible,boolean +twoDgraphics bounds,text defaultAllowDrag,boolean defaultAllowDrop,boolean dragImage,text drawDirect,boolean fillColor,color,hls idNumber,na layer,text lineStyle,list,none,1,2,3,4,6,8,dotted,dashed name,text noDropImage,text notifyAfterMessages,na notifyBeforeMessages,na object,na parent,na pattern,text position,text rgbFill,color,rgb rgbStroke,color,rgb script,script size,text strokeColor,color,hls transparent,boolean uniqueName,na userProperties,na vertices,text visible,boolean +group autoRadioButtons,boolean bounds,text dragImage,text drawDirect,boolean idNumber,na layer,text name,text noDropImage notifyAfterMessages,na notifyBeforeMessages,na object,na objects,na parent,na position,text script,script size,text transparent,boolean uniqueName,na userProperties,na vertices,text visible,boolean +hotword bounds,na defaultAllowDrag,boolean defaultAllowDrop,boolean dragImage,text highlight,boolean hotwordStyle,list,bookDefault,color,frame,none idNumber,na invert,boolean name,text noDropImage,text object,na parent,na script,script text,text textOffset,na uniqueName,na userProperties,na +oleObject action,text bounds,text defaultAllowDrag,boolean defaultAllowDrop,boolean dragImage,text drawDirect,boolean fillColor,color,hls idNumber,na layer,text lineStyle,none,1,2,3,4,6,8,dotted,dashed name,text noDropImage,text notifyAfterMessages,na notifyBeforeMessages,na object,na parent,na position,text reference,text rgbFill,color,rgb rgbStroke,color,rgb script,script size,text strokeColor,color,hls trackSize,boolean transparent,boolean uniqueName,na updateType,list,automatic,manual upToDate,na userProperties,na useWindowsColors,boolean vertices,text visible,boolean +page defaultAllowDrop,boolean idNumber,na imageInvalid,na name,text object,na objectCount,na objects,na pageNumber,text parent,na percentFreeSpace,na script,script skipNavigation,boolean storedImages,na storeImage,boolean uniqueName,na userProperties,na +paintObject bounds,text defaultAllowDrag,boolean defaultAllowDrop,boolean dragImage,text drawDirect,boolean fillColor,color,hls idNumber,na layer,text lineStyle,list,none,1,2,3,4,6,8,dotted,dashed name,text noDropImage,text notifyAfterMessages,na notifyBeforeMessages,na object,na parent,na pattern,text position,text rgbFill,color,rgb rgbStroke,color,rgb script,script size,text strokeColor,color,hls transparent,boolean uniqueName,na useChromakey,boolean userProperties,na vertices,text visible,boolean +recordField activated,boolean baselines,boolean borderStyle,list,none,rectangle,inset,raised,shadowed,scrolling bounds,text defaultAllowDrag,boolean defaultAllowDrop,boolean dragImage,text drawDirect,boolean drawTextDirect,boolean enabled,boolean fieldType,list,wordWrap,noWrap,singleLineWrap,singleSelect,multiSelect fillColor,color,hls fontFace,font,text fontSize,font,text fontStyle,font,text idNumber,na indents,text layer,text name,text noDropImage,text notifyAfterMessages,na notifyBeforeMessages,na object,na objects,na parent,na position,text rgbFill,color,rgb rgbStroke,color,rgb richText,multiLine script,script size,text scroll,text selectedTextlines,text size,text spacing,text strokeColor,color,hls tabSpacing,text tabType,list,left,decimal text,multiLine textAlignment,list,left,center,right,justify textOverflow,na textUnderflow,na transparent,boolean uniqueName,na userProperties,na useWindowsColors,boolean vertices,text visible,boolean +window alwaysOnTop,boolean alwaysReader,boolean authorStatusBar,boolean autoClose,boolean autoShow,boolean autoSize,boolean borderstyle,list,thickFrame,thinFrame,dialogFrame,shadowed,none bounds,text caption,text captionBar,list,normal,thin,none centerClient,boolean clientHandle,na clientSize,text currentPage,text defaultClientSize,text defaultPage,text defaultPosition,text defaultState,text defaultType,list,child,popup enabled,boolean focus,na hideOnDeactivate,boolean icon,text idNumber,na imageBuffers,list,0,1,2 isOpen,boolean matcolor,color,hls magnification,list,1,2,4,8,16 maximumSize,text menuBar,text minimumSize,text mousePosition,text name,text object,na onBackground,boolean pageScroll parent,na parentHandle,text parentWindow,text position,text readerStatusBar,boolean revertFocus,boolean rulers,boolean selectedHotwords,na selectedText,na selectedTextState,na selection,na script,script size,text state,list,minimized,maximized,normal style,text tile,list,top,bottom,left,right,none tileOrder,na type,list,popup,child uniqueName,na userProperties,na useWindowsColors windowHandle,na +systemProps activeWindowHandle,text caretLocation,text focus,text focusWindow,text mainWindow,na selectedText,na selectedTextState,na selection,text startup3DInterface,boolean startupAutoScriptFile,text startupBook,text startupDrawDirect,boolean startupHeight,text startupReaderRightClick,boolean startupSysBooks,text startupUnits,list,english,metric startupWidth,text sys3DInterface,boolean sysAlignment,list,left,right,justify,center sysAutoScriptFile,text sysBooks,text sysCentered,boolean sysChangesDB,boolean sysClientHandle,na sysCountry,text sysCurrency,text sysCursor,text sysDate,na sysDateFormat,text sysDrawDirect,boolean sysError,text sysErrorNumber,text sysEvening,text sysFillColor,color,hls sysFontFace,font,text sysFontSize,font,text sysFontStyle,font,text sysGrid,boolean sysGridSnap,boolean sysGridSpacing,text sysHistory,text sysHistoryRecord,boolean sysHotwordsShown,boolean sysICountry,text sysICurrDigits,text sysICurrency,text sysIDate,text sysIDigits,text sysILZero,text sysIMeasure,text sysIndents,text sysINegCurr,text sysITime,text sysITLZero,text sysLanguage,text sysLevel,text sysLineEndSize,text sysLineEndStyle,text sysLineSpacing,text sysLineStyle,list,none,1,2,3,4,6,8,dotted,dashed sysList,text sysLongDate,text sysMagnification,list,1,2,4,8,16 sysMediaBreakKey,text sysMediaSuspend,boolean sysMMEngineVersion,na sysMorning,text sysMousePosition,text sysNumberFormat,text sysOpenMedia,na sysOperatingSystem,na sysOptimizedSave,boolean sysPageScroll,text sysPageUnitsPerPixel,na sysPasswords,na sysPattern,text sysPolygonShape,text sysReaderRightClick,boolean sysRGBFill,color,rgb sysRGBStroke,color,rgb sysRuler,boolean sysRuntime,na sysShortDate,text sysShowMRUfiles,boolean sysStrokeColor,color,hls sysSupportedMedia,na sysSuspend,boolean sysSuspendMessages,boolean sysTabType,list,left,decimal sysTabSpacing,text sysThousand,text sysTime,na sysTimeChar,text sysTimeFormat,text sysTool,list,arc,angledLine,borderlessField,button,checkBox,checkBox3D,comboBox,curve,ellipse,field,irregularPolygon,labelButton,line,magnify,ole,polygon,pie,radioButton,radioButton3D,reader,recordField,rectangle,roundedRectangle,select,singleSelectListBox sysTransparent,boolean sysUnits,text sysUseWindowsColors,boolean sysVersion,na sysWindowHandle,na target,text targetWindow,text +widget bounds,text layer,text name,text parent,na position,text script,script size,text vertices,text visible,boolean +stage borderWidth,text bounds,text dragImage,text drawDirect,boolean idNumber,na innerBevelWidth,text outerBevelWidth,text outline,boolean layer,text mediaSize,text name,text noDropImage notifyAfterMessages,na notifyBeforeMessages,na object,na parent,na position,text postEffect,text preEffect,text readerVisible,boolean roundedCorners,boolean script,script size,text stageAnchor,list,center,topLeft,topRight,bottomLeft,bottomRight stageSizing,list,centerMedia,clipMedia,stretchMedia,stretchStage transparent,boolean uniqueName,na userProperties,na vertices,text visible,boolean testing afsddd Write scripts and properties unknown,,, &Button This field contains a list of all properties of all objects and their legal values. The button above parses this list and writes the script of this page, which is hard coded for speed, and sets all of the necessary book properties. These objects are used in testing the property browser. ,?z?0u ThreeDeeRect bottomLine topLine test2 Blah:blah blah Bla blah Blah:blah blah Bla blah Blah:blah blah Bla blah Blah:blah blah Bla blah Mblah Teleblah. Blah blah blah. lose to your monitor. ablabla blah.Blah:blah blah blablabla blah.Blah:blah blah blablabla blah.Blah:blah blah blablabla blah.Blah:blah blah blablabla blah.Blah:blah blah blablabla blah. _keywords Radio &1 Radio &2 Radio &3 Radio &4 &Option Sample Viewer 5760,2966 extSz 4320,2970 nrmlSz 5760,5040 hyperlink ftskeywords in,none ThreeDeeRect bottomLine topLine target page New Page &New Page Ne&xt Page Previous &Previous Page Other Page &Other Page destination page other page notifybefore oenabled = B"other in,ms ThreeDeeRect bottomLine topLine page id Normal Destination Page: transition extSz +nrmlSz buttonClick buttonClick /= extSz /= nrmlSz &Transition Effect in,none ThreeDeeRect bottomLine topLine in,ms ThreeDeeRect bottomLine topLine slide blinds dissolve puzzle slide spiral split turnPage spiral2 splatter split turnPage in,ms ThreeDeeRect bottomLine topLine right bottom dropDownText bottom right buttonClick buttonClick odir = speed buttonUp ospd = &Fast Normal No&rmal &Slow speed tbk_bookRef dialog vwrRef buttonClick buttonClick vwrRef = "dialog" tbk_bookRef() *"Test" currentpage "test" fx = combobox "fx" spd = "speed" dir = dst = 9dest" trFX =fx&& transition trFx close &Test Link to Transition destlabel Destination Speedd Direction Eksavelink standard FALSE ftsLinkPage Not a valid page reference: saveLink page id tbk_bookRef other page buttonClick buttonClick saveLink = TRUE B"other xisObject( ftsLinkPage()) "Not a valid reference:"&& FALSE savelink isOpen "standard" tbk_bookRef() close Cancel standard tbk_bookRef buttonClick buttonClick isOpen "standard" tbk_bookRef() close Cancel reader settings in,none ThreeDeeRect bottomLine topLine Reader Level Modifications choice Add Search &Options to Page Menu handlers Add Search &Handlers Only &Modify Scripts of All Included Books standard modifyBooks buttonClick buttonClick modifyBooks isOpen "standard" Cancel standard buttonClick buttonClick isOpen "standard" close Cancel callWinHelp MM_CMD_Reader_Level_Settings buttonClick buttonClick callWinHelp "MM_CMD_Reader_Level_Settings" index settings index settings lDp2s ftskeywords in,none ThreeDeeRect bottomLine topLine folder mytabheight myNumTabs myTabMode myTabSpace tbk_wid_name numTabs tabHeight tabMode tabSpace tbk_wid_props obtype tabHighlight tabLabel obtype tabHighlight tabLabel &Keywords obtype tabHighlight tabLabel &Hotwords obtype tabHighlight tabLabel &Objects obtype tabHighlight tabLabel &Pages obtype tabHighlight tabLabel &Files highlight Settings File: settings file C:\MTB30\FTS.SSTE2.SST Set Options For... fileTab included books C:\HOOKZIP\INDEXME2.TBK C:\MTB30\FTS.TBK add book &Add... remove book included books lines sftsKwNum buttonClick included books buttonClick 4sftsKwNum lines = selectedtextlines "included books" lc = clc > 0 notifybefore oenabled &Remove excluded words aftsFileExists leaveField <> NULL ftsFileExists( ) < 0 C:\HOOK\COMMWORD.TXT choose excluded words fileName KpftsOpenFileDlg Choose an Excluded Word File Excluded Word File (*.TXT),*.TXT filterList wrdFile excluded words commword.txt buttonClick buttonClick fileName = "commword.txt" filterList = "Excluded Word File (*.TXT),*. wrdFile = ftsOpenFileDlg("Choose B",filename,"", 8<> NULL "excluded i" = &Choose... edit excluded words notepad.exe excluded words buttonClick buttonClick "notepad.exe"&& "excluded &Edit... Included Books Excluded Words File pageTab object object reference buttonClick buttonClick enabled {reference" = TRUE Use O&bject Text :%7% object reference in,ms ThreeDeeRect bottomLine topLine obName Name:t: Object Type: h(C( F(V(~ in,ms ThreeDeeRect obType recordField field buttonQ) bottomLine topLine caption object reference buttonClick buttonClick enabled {reference" = FALSE Use &Title Property contexts New Context Contexts contexts Enter New Contexts: ]ftsInsertLine New Contexts contextName multiEntry buttonClick buttonClick ZcontextList contexts = numLines = 2 = multiEntry("New Contexts","Enter e <> contextName <> NULL ftsInsertLine( &New... Remove topic ftsSetPage contexts lines supdBooks buttonClick contexts buttonClick lines = selectedtextlines "contexts" '<> NULL updBooks ftsSetPage() = TRUE numLines = lc = clc > 0 notifybefore oenabled = &Remove Page Identificationn Page Contexts objTab in,ms ThreeDeeRect bottomLine topLine sections new section secName Enter New Sections: New Sections ]ftsInsertLine Sections sections multiEntry secNameList buttonClick buttonClick Zsections secNameList = multiEntry("New Sections","Enter f = ftsInsertLine( &New... remove section ftsSetPage lines sections supdBooks buttonClick sections buttonClick lines = selectedtextlines "sections" '<> NULL updBooks ftsSetPage() = TRUE lc = clc > 0 notifybefore oenabled R&emove textContinues &Text Continues Through All Objects recordfield &Record Fields field F&ields button &Buttons combobox &Combo Boxes background O&n Background hidden Hi&dden Sections Include These: Exclude If:ses hwTab dataType formats remove value notifybefore tl = selectedtextlines "tags" enabled value" = x(tl = NULL) "type" = x(tl = tl = comboBox "formats" = dataType = "UDS" M = TRUE new value N&ew... remove value ftsSetPage lines valCnt valCnt supdBooks buttonClick buttonClick lines = selectedtextlines "tags" #<> NULL updBooks ftsSetPage() = TRUE numLines = valCnt lc = clc > 0 &Remove in,none ThreeDeeRect bottomLine topLine in,ms ThreeDeeRect bottomLine topLine ftsSetPage initType keyRef dataType buttonUp ftsSetPage initType keyRef dataType keyDown tl = oselectedtextlines keyRef = dataType = initType "type" ftsSetPage() tl = Foo C Fruit C Real &Number &Integer [yy]yy:mm:dd dateFormats dataTypes dd:mm:[yy]yy U,D,S mm:dd:[yy]yy formats buttonClick buttonClick dateFormats = "mm:dd:[yy]yy" & "dd:mm:[yy]yy" & "[yy]yy:mm:dd" cBox = combobox "formats" dropDownItems dataTypes cbox = "U,D,S" &Date &Character ZRjR~ in,ms ThreeDeeRect bottomLine topLine formats w, /E dataTypes keyRef dataType myFormats selectChange selectChange newText myFormats = odropdownitems i = 1 numFormats = ci <= dataType = odataTypes tl = selectedTextlines "tags" keyRef = >VNVe U,D,S dataTypes mm:dd:[yy]yy dd:mm:[yy]yy [yy]yy:mm:dd Hotword Tags: Data Type Format kwTab ,foo,bar,bob,a,fd,gdg e,g,foo,,,,bar,,,,bob,,foo,bar,bob,sue,sob,,foo newKW HYZY~ in,none ThreeDeeRect bottomLine topLine in,ms ThreeDeeRect bottomLine topLine keywords Chart Dinosaur Fruit Tech Support Warning Fruit generate Globe Tech Support Warning Warning New Keyword newKWList ]ftsInsertLine newKW keywords newKW Keywords Enter New Keywords: New Keywords multiEntry newKW buttonClick buttonClick Zkeywords, valName newKWList = multiEntry("New Keywords","Enter G<> NULL = ftsInsertLine( &New... Remove Keyword ftsSetPage lines keywords supdBooks buttonClick keywords buttonClick lines = selectedtextlines "keywords" numLines = lc = L<> NULL updBooks ftsSetPage() = TRUE clc > 0 notifybefore oenabled = &Remove where &Where Used Keywords Used in Index: V, #? .&+ +E .&+ +E You have included standard [^stepBack included books . Please remove some before continuing. +1infoDlg ftsscripts tbk_bookRef 2saveSettings Z^stepBack Warning No more than 20 books may be included in an index. buttonClick buttonClick numBooks = "included books") #> 20 infoDlg "Warning","No more than 20 4 may be index."&&\ "You have }&&". Please some 4continuing."\ "ftsscripts" tbk_bookRef() settings saveSettings stepBack = "main" isOpen "standard" close Cancel standard [^stepBack Z^stepBack buttonClick buttonClick stepBack = "main" isOpen "standard" close Cancel load settings sftsSetFile fileName stripExtension fname pathAndName Settings File (*.SST),*.sst updateSettings filterList sftsMainBk setFile Choose a Settings File splitPath KpftsOpenFileDlg buttonClick buttonClick 4sftsSetFile, sftsMainBk fileName = stripExtension( &)&".SST" filterList = "Settings O (*. ),*.sst" pathAndName = splitPath( fname = setFile = ftsOpenFileDlg("Choose a 4<> NULL updateSettings &Load Settings... save settings sftsSetFile fname ftsCopyFile pathAndName `QftsRemoveFile Settings File (*.SST),*.sst filterList settings file ftsSaveAsDlg 2saveSettings Save Settings File As splitPath newFile buttonClick buttonClick 4sftsSetFile filterList = "Settings (*.SST),*.sst" pathAndName = splitPath( fname = newFile = ftsSaveAsDlg(" .<> NULL ftsRemoveFile( ftsCopyFile( saveSettings "settings file" = &Save Settings... Defaults .&+ +E .&+ +E Cancel Continue ftsSetPage sftsSetFile This operation will reset all settings to default values and overwrite your settings file. writeDefaultSST updateSettings supdBooks buttonClick buttonClick 4sftsSetFile "This operation will reset settings default values overwrite your 'file." f"Continue" "Cancel" writeDefaultSST updateSettings updBooks ftsSetPage() = TRUE &Use Defaults callWinHelp MM_CMD_Index_Settings buttonClick buttonClick callWinHelp "MM_CMD_Index_Settings" page options page settings R&T)U ftskeywords foobar ftsTitle in,none ThreeDeeRect bottomLine topLine Page Context: title location mtitleLoc property object reference title buttonClick buttonClick >= "property" enabled "title" = {reference" = titleLoc property titleLoc property Use &Title Property object Use Index &Default object reference in,ms ThreeDeeRect bottomLine topLine object reference in,ms ThreeDeeRect bottomLine topLine title foobarrix Confidential Exclude E&xclude Page From Index in,ms ThreeDeeRect bottomLine topLine contexts onsf Book "C:\HOOK\MMTOOLS.SBK" ntexts50 of Book "C:\HOOK\MMTOOLS.SBK" new context Enter New Context: textEntry contexts newContext newContext ]ftsInsertLine New Context Context names may not contain commas. context buttonClick buttonClick newContext = textEntry("New ","Enter #:","","context") Enames may xcontain commas." q<> NULL combobox "contexts" = = dropdownitems 7 = ftsInsertLine( J,newcontext) g" = N&ew... in,ms ThreeDeeRect bottomLine topLine index keywords add keyword buttondoubleClick add keyword keyDown buttondoubleClick oselectedTextlines <> NULL buttonClick keyword" stl = / = keyEnter add keyword index keywords ]ftsInsertLine keywords page keywords newKW buttonClick index keywords buttonClick tl = selectedtextlines "index keywords" newKW = = ftsInsertLine( notifybefore oenabled = = NULL) &Add > remove keyword page keywords newKW buttonClick page keywords buttonClick tl = selectedtextlines keywords" newKW = notifybefore oenabled = ^ = NULL) <&Remove new keyword newKWList index keywords ]ftsInsertLine newKW Keywords page keywords newKW ndxKW Enter New Keywords: New Keywords multiEntry newKW buttonClick buttonClick newKWList = multiEntry("New Keywords","Enter pgKW = keywords" ndxKW = "index w<> NULL XftsInsertLine( &New... in,ms ThreeDeeRect bottomLine topLine page keywords remove keyword buttonDoubleClick remove keyword keyDown oselectedTextlines <> NULL buttonClick keyword" stl = / = keyEnter reference Page "page settings"idential"MTOOLS.SBK"K" Page Titleificationn Keywords:c: Keywords in Book(s) Keywords of Page:s) standard 2saveSettings buttonClick buttonClick settings saveSettings isOpen "standard" close Cancel standard buttonClick buttonClick settings isOpen "standard" close Cancel callWinHelp MM_CMD_Page_Settings buttonClick buttonClick callWinHelp "MM_CMD_Page_Settings" list dialog in,ms ThreeDeeRect where used close keyDown = keyEnter buttonClick B"close" sContext Close dialog buttonClick buttonClick isOpen "dialog" close Close in,none ThreeDeeRect bottomLine topLine Page Title: in,ms ThreeDeeRect bottomLine topLine pages .&+ + enterPage notifybefore ) > 0 oselectedtextlines = 1 page settingsility' is not currently used. > > id 50 of Book "C:\HOOK\MMTOOLS.SBK"' Page Number: in,ms ThreeDeeRect bottomLine topLine page number page reference pages notifybefore selectedtextlines " <> NULL stl = selectedTextlines reference" Page number 16 of book "MMTOOLS.SBK" page reference Page number 16 of book "MMTOOLS.SBK" enterPage info dialogs frame ThreeDeeRect bottomLine topLine in,none settings not found cancel keyDown buttonClick B"help" sContext New Settings File fname sftsInfoVal writeDefaultSST pathAndName Settings File (*.SST),*.sst filterList dialog ftsSaveAsDlg splitPath buttonClick buttonClick 4sftsInfoVal filterList = "Settings File (*.SST),*.sst" pathAndName = splitPath( fname = r = ftsSaveAsDlg("New <> NULL writeDefaultSST isOpen "dialog" &New... Text search settings could not be found for this book. Do you wish to create a new settings file or choose an existing one??? Choose Choose a Settings File KpftsOpenFileDlg fname sftsInfoVal pathAndName Settings File (*.SST),*.sst filterList dialog splitPath buttonClick buttonClick 4sftsInfoVal filterList = "Settings File (*.SST),*.sst" pathAndName = splitPath( fname = r = ftsOpenFileDlg("Choose a isOpen "dialog" &Choose... Cancel sftsInfoVal dialog buttonClick buttonClick 4sftsInfoVal isOpen "dialog" close Cancel MM_CMD_Search_Settings_Not_Found callWinHelp buttonClick buttonClick callWinHelp "MM_CMD_Search_Settings_Not_Found" combo dialogs Cancel keyDown keyChar = keyEnter buttonClick B"OK" B"Cancel" _ <> in,true ThreeDeeRect bottomLine topLine assign value in,ms ThreeDeeRect bottomLine topLine choice [None]eal Number) [None] bar (Real Number) foo (String))r) object (String) Weight (Integer) Weight (Integer) Weight (Integer) &New... Title Choose Tag:ag: newKF standard newKF addKF buttonClick V, #> ,%H.% sftsSetFile tagName numKF ?4ftsSetIniVar newKF dataType CREATE *ftsGetIniVar KEYFIELDS addKF buttonClick isOpen "standard" newKF <> NULL addKF newKFList 4sftsSetFile tagName = dataType = numKF = ftsGetIniVar("CREATE","KEYFIELDS", xisType(DWORD, ftsSetIniVar(" y+1,"#"& Cancel standard buttonClick buttonClick isOpen "standard" close Cancel callWinHelp MM_CMD_Hotword_Settings buttonClick buttonClick callWinHelp "MM_CMD_Hotword_Settings" multi entry cancel keyDown entryPg = keyEnter buttonClick B"ok" B"help" entryPg sContext Keywords dataType Title Enter New Keywords::ection:key: in,ms ThreeDeeRect bottomLine topLine Entry entry keyChar enterpage = keyEnter caretLocation tl = entry = <> NULL notifyafter may not contain commas. entry kdataType dialog RentryPg buttonClick buttonClick "entry" dataType entryPg()&&"may xcontain commas." isOpen "dialog" Cancel dialog buttonClick buttonClick isOpen "dialog" close Cancel enterpage MM_CMD_New_Keywords callWinHelp Contexts MM_CMD_New_Sections Keywords kdataType MM_CMD_New_Contexts RentryPg Sections other buttonClick buttonClick dataType entryPg() = "Sections" callWinHelp "MM_CMD_New_Sections" >Contexts" 3D_New_Contexts" dKeywords" YD_New_Keywords" rother" Sections entry dialog = keyEnter buttonClick B"OK" B"Cancel" in,none ThreeDeeRect bottomLine topLine text entry cancel keyDown entryPg = keyEnter buttonClick B"ok" B"help" entryPg section dataType Title Section Name:text:n:ection:key: in,ms ThreeDeeRect bottomLine topLine Entry enterpage notifyafter dialog buttonClick buttonClick isOpen "dialog" Cancel dialog buttonClick buttonClick isOpen "dialog" close Cancel MM_CMD_New_Section callWinHelp MM_CMD_New_Context context kdataType section RentryPg other buttonClick buttonClick dataType entryPg() = "section" callWinHelp "MM_CMD_New_Section" NULL addSec 4sftsSetFile, = ftsTextlineToList( ftsSetIniVar("CREATE","CONC_SECTION", Cancel sftsSections standard buttonClick buttonClick 4sftsSections isOpen "standard" close Cancel MM_CMD_Object_Settings callWinHelp buttonClick buttonClick callWinHelp "MM_CMD_Object_Settings" value dialog value entry cancel keyDown = keyEnter buttonClick B"ok" B"help" sContext dataType in,none ThreeDeeRect bottomLine topLine in,ms ThreeDeeRect bottomLine topLine Entry Cancel keyDown keyChar enterpage = keyEnter buttonClick B"OK" B"Cancel" _ <> notifyafter formats dataTypes kdataType myFormats selectChange selectChange newText myFormats = odropdownitems i = 1 numFormats = ci <= dataType odataTypes U,D,S dataTypes mm:dd:[yy]yy dd:mm:[yy]yy [yy]yy:mm:yyU Title Enter New Tag::ag: keyed value:d: Data Type &Real Number &Integer [yy]yy:mm:dd dateFormats dataTypes dd:mm:[yy]yy U,D,S mm:dd:[yy]yy formats buttonClick buttonClick dateFormats = "mm:dd:[yy]yy" & "dd:mm:[yy]yy" & "[yy]yy:mm:dd" cBox = combobox "formats" dropDownItems dataTypes cbox = "U,D,S" &Date &Character Format bottomLine topLine Dialog buttonClick buttonClick isOpen "Dialog" Cancel Entry Dialog buttonClick buttonClick "Entry" isOpen "Dialog" close Cancel callWinHelp MM_CMD_New_Tag buttonClick buttonClick callWinHelp "MM_CMD_New_Tag" initType enterpage sftsSetFile ftsSetFile getSetFile sftsMainBk tbk_bookRef enterPage cancel keyDown 4sftsSetFile, sftsMainBk " <> tbk_bookRef() F = NULL S = getSetFile( = keyEnter buttonClick B"ok" B"help" Creating a search index for a book makes full-text searching possible. This process may take a long time to complete. Create search index now?????????????????????????? create search index tbk_bookRef createIndex buttonClick the build process buttonClick createIndex index" tbk_bookRef() Cancel standard buttonClick buttonClick "standard" close Cancel Settings index settings [^stepBack tbk_bookRef buttonClick buttonClick stepBack "index settings" tbk_bookRef() = "main" &Settings... MM_CMD_Build_Index callWinHelp buttonClick buttonClick callWinHelp "MM_CMD_Build_Index" update books ThreeDeeRect in,none bottomLine topLine Updating Books to Match Current Settings. Please Stand By... sContext update settings in,none ThreeDeeRect bottomLine topLine Updating Settings Files to Include Current Books. Stand By... sContext Create Search Index in,none ThreeDeeRect bottomLine topLine Creating Search Index. Stand by.... sContext nt Books. Stand By... sContext Create Search Index wait dlg wait dlg in,none ThreeDeeRect bottomLine topLine Building list of pages, please wait... sContext bottomLine topLine in,none ThreeDeeRect ftsscripts sContext Multimedia Tools SysBook scripts pageS.SST Compiler bottomBar slider mySliderMin mySliderMax mysliderPos myNumTics scaledSlider tbk_wid_name numTics tallTicSpacing sliderMin sliderMax sliderPageSize sliderPos tbk_wid_props tbk_wid_values myTallTicSpacing sliderPageSize 5.00000 thumb hSliderThumb txClassName button id 103 of page id 15 glide width false hilight myTrackPos Shuttle helptext currentTime 0.00000% Cancel aborted s_anim_idleAnimations ZstopAnimation buttonClick buttonClick 4s_anim_idleAnimations stopAnimation "aborted", close &Cancel SelectObject 8ksavePath aborted s_anim_idleAnimations ZstopAnimation s_anim_PathObject buttonClick buttonClick 4s_anim_PathObject, s_anim_idleAnimations stopAnimation "aborted", i <> savePath "SelectObject" close &Done Tools Button id 95 of Page id 42 invertedButton Button id 95 of Page id 42 buttonPressed Select select default s_anim_selectedTool buttonClick buttonClick 4s_anim_selectedTool default Vertex vertex s_anim_selectedTool buttonClick buttonClick 4s_anim_selectedTool "vertex" cursor " settings aborted s_anim_idleAnimations ZstopAnimation settings buttonClick buttonClick 4s_anim_idleAnimations stopAnimation "aborted", "settings" %modal focusWindow enabeld T#`#M n#z#u previousLine nextLine middleCurve lastCurve firstCurve SelectObject selectObject aborted s_anim_idleAnimations ZstopAnimation SelectObject objects s_anim_CurrentObject buttonClick buttonClick 4s_anim_idleAnimations, s_anim_CurrentObject stopAnimation "aborted", Vct = combobox " "selectObject" "SelectObject" %modal focusWindow normal objectColor previousLine nextLine middleCurve lastCurve firstCurve startSliderMove sliderMove endSliderMove enterpage Select an object and animation from the lists below. Select new to add an animation to the object. object. SelectObject objects buttonClick buttonClick combobox " O&bject to animate: animations buttonClick buttonClick combobox "animations" &Animation: 8ksavePath Animation: ceditPath animations selectObject bottomBar objects newObject s_anim_PathObject animation buttonClick buttonClick 4s_anim_PathObject isObject( savePath "selectObject" newObject = combobox " ~(TAB, animation = Ganimations" (dropDownItems editPath enabled "bottomBar" ) - 1 "Animation: isOpen close Cancel buttonClick buttonClick close &Cancel objects Rectangle id 1 Rectangle id 1 of Page id 69d 73 animations enterPage enterPage buttonClick buttonClick B"reps" Re&petitions: constant buttonClick buttonClick B"constant" R&ate: CelAnimation &Cel Animation integer duration buttonClick buttonClick integer "duration" &Timing: Settings Steps per Second: Duration in Seconds: Duration w%spinUp buttonDown w%spinUp buttonDoubleClick w%spinUp buttonStillDown spinUp |spinDown buttonDown |spinDown buttonDoubleClick |spinDown buttonStillDown spinDown integer Steps integer s_anim_animationSettings spinUp integer s_anim_animationSettings spinDown s_anim_animationSettings leaveField spinUp 4s_anim_animationSettings[] @12] "integer" spinDown xisType("WORD", >= 30 w%spinUp buttonDown w%spinUp buttonDoubleClick w%spinUp buttonStillDown spinUp |spinDown buttonDown |spinDown buttonDoubleClick |spinDown buttonStillDown spinDown integer ShowAllSteps s_anim_animationSettings buttonClick buttonClick 4s_anim_animationSettings[] Show All Steps s_anim_animationSettings buttonClick buttonClick 4s_anim_animationSettings[] Constant Constant Variable Variable integer settings s_anim_animationSettings buttonClick buttonClick 4s_anim_animationSettings[] B"reps" "settings" enabled "integer" FALSE integer settings enterButton integer settings buttonClick "integer" "reps" "settings" buttonClick integer s_anim_animationSettings spinUp integer s_anim_animationSettings spinDown spinUp 4s_anim_animationSettings[] "integer" spinDown w%spinUp buttonDown w%spinUp buttonDoubleClick w%spinUp buttonStillDown spinUp |spinDown buttonDown |spinDown buttonDoubleClick |spinDown buttonStillDown spinDown integer 11111 Forever &Forever FixedPath FALSE s_anim_animationSettings buttonClick buttonClick 4s_anim_animationSettings[] Z= FALSE) &Update Path on Move CelAnimation StepsPerCel stepsPerCel Settings s_anim_animationSettings buttonClick buttonClick 4s_anim_animationSettings[] enabled "stepsPerCel" B"StepsPerCel" steps StepsPerCel integer s_anim_animationSettings spinUp integer s_anim_animationSettings spinDown integer s_anim_animationSettings leaveField spinUp 4s_anim_animationSettings[] 611] "integer" spinDown xisType(" w%spinUp buttonDown w%spinUp buttonDoubleClick w%spinUp buttonStillDown spinUp |spinDown buttonDown |spinDown buttonDoubleClick |spinDown buttonStillDown spinDown integer StepsPerCel &Steps per Cel: Close C&lose editorScripts SelectionHandles SW_handle S_handle NW_handle E_handle NE_handle N_handle SE_handle W_handle editorScripts buttonClick buttonClick getHandlerList( /"editorScripts", "") EditorScripts settings buttonClick buttonClick getHandlerList( "settings", "") Settings selectObject buttonClick buttonClick getHandlerList( "selectObject", "") SelectObject Compiler buttonClick buttonClick gethandlerList( ", "") periodic buttonClick timer timerNotify rightButtonClick buttonClick timerStart("periodic", 33, 55, timerNotify 4&CRLF rightButtonClick timerStop(0) BottomBar Pages: Backgrounds: clipPkgPaths keyDown -- Tim Pearson, Asymetrix 6/94 keyEnter buttonClick B"OK" ThreeDeeRect in,none bottomLine topLine Cancel Add To Media Paths Of: hardDisk &Hard Disk cdRom &CD-ROM sEreturnString cdRom hardDisk buttonClick buttonClick returnString B"hardDisk", B"cdRom" buttonClick buttonClick close ThreeDeeRect in,none bottomLine topLine clipPkgChoosePath 9hdPaths ListToTextline paths cdRom paths 5cdPaths hardDisk initDlg keyDown -- Tim Pearson, Asymetrix 6/94 initDlg B"hardDisk" = B"cdRom" = hdPaths "paths" = ListToTextline( `[2]) cdPaths x[3]) keyEnter buttonClick B"OK" in,sculpted ThreeDeeRect paths 5cdPaths 9hdPaths paths .&+ + enterPage paths = TRUE ohdPaths ocdPaths otextOverFlow = 0 notifyAfter textlineCount( ) > 0 oselectedTextlines = 1 C:\A\MTB30\BOOKS\TEST hdPaths cdPaths C:\A\MTB30\BOOKS\TEST2 bottomLine topLine sized sized xOff = sysPageUnitsPerPixel yOff = Media Paths:Clip: paths paths hardDisk buttonClick buttonClick paths B"hardDisk" hardDisk &Hard Disk cdRom &CD-ROM sEreturnString cdRom paths hardDisk buttonClick buttonClick returnString B(selectedTextlines "paths") B"hardDisk", B"cdRom" buttonClick buttonClick close Cancel enterPage callWinHelp MM_CMD_Page_Settings buttonClick buttonClick callWinHelp "MM_CMD_Page_Settings" list dialog ThreeDeeRect in,none bottomLine topLine clipPkgPrompt fileName 9hdPaths clipPkgPaths cdRom 5cdPaths hardDisk clipRef buttons initDlg -- Tim Pearson, Asymetrix 6/94 initDlg "fileName" = upperCase( &[1]) "clipRef" = ohdPaths = ocdPaths = l[3] = NULL {[4] = enabled "buttons" = FALSE B"hardDisk" "clipPkgPaths" = B"cdRom" C:\A\MTB30\BOOKS\TEST hdPaths This file currently exists on neither the Hard Disk nor the CD-ROM media paths: in,sculpted ThreeDeeRect fileName C:\A\MTB30\BOOKS\TEST2\TRAIN.WAVVv bottomLine topLine Clip:rce of Clip: clipRef id 107 buttons Choose Path tbkToolsDlg FALSE 5cdPaths stbk_thisBook 9hdPaths sEreturnString clipRef clipPkgChoosePath buttonClick buttonClick 8 stbk_thisBook Z init[], clipRef " && " && " " && mmSearchHD F1] = TRUE mmSearchCD k1] = FALSE 1] = 2] = hdPaths 3] = cdPaths tbkToolsDlg( "clipPkgChoosePath" <> NULL returnString &Move... moveAll M&ove All... &Copy... copyAll Co&py All... tbkToolsDlg clipPkgPaths sEreturnString Choose Media Path buttonClick buttonClick Z init[] tbkToolsDlg( "clipPkgPaths" ,"Choose Media <> NULL returnString &Add... sEreturnString buttonClick buttonClick returnString e= "skip" &Skip winHelp winHelpDword *winHelpDword mtb30.hlp buttonClick buttonClick linkDLL "USER" INT winHelpDword= (WORD,STRING, DWORD) ((windowHandle targetWindow,"mtb30.hlp",1,62680) unlinkDLL " &Help cancel buttonClick buttonClick close Cancel ThreeDeeRect in,none bottomLine topLine clipPkg packageClips buttonClick buttonClick packageClips &Start Hint: If you wish to collect all media files into one directory, make sure your media paths include only one directory... The Media Packager removes all explicit file references from your clip's media references. You may be prompted to answer questions about your media files during this process.sssssssssss buttonClick buttonClick mediaPaths Me&dia Paths buttonClick buttonClick close &Close winHelp winHelpDword *winHelpDword mtb30.hlp buttonClick buttonClick linkDLL "USER" INT winHelpDword= (WORD,STRING, DWORD) ((windowHandle targetWindow,"mtb30.hlp",1,62674) unlinkDLL " &Help kasdf browser as fleas +v1H2 searchmode 29,33 selectChars searchString buttons script system buttondown selection checkingSelection selection checkingSelection yhelptext statusbar mouseEnter leftWhere statusbar mouseleave bref = enabled checkingSelection value helptext statusbar leftWhere = objectfrompoint( selection acheckSelection buttonup checkSelection Examine the current selection helptext 1LlastWin \updateBrowser stbk_curOb buttonup 4stbk_curOb = currentPage lastWin() updateBrowser Examine the current page helptext background 1LlastWin \updateBrowser stbk_curOb buttonup 4stbk_curOb currentPage lastWin() updateBrowser Examine the current background helptext 1LlastWin \updateBrowser stbk_curOb buttonup 4stbk_curOb currentPage lastWin() updateBrowser Examine the current book helptext viewer 1LlastWin \updateBrowser stbk_curOb buttonup 4stbk_curOb = lastWin() updateBrowser Examine the current viewer helptext system \updateBrowser stbk_curOb buttonup 4stbk_curOb = "< updateBrowser Examine system properties and variables helptext script 1LlastWin stbk_curOb buttondown yhelptext statusbar mouseEnter statusbar mouseleave 4stbk_curOb lastWin() helptext statusbar F?V?J Edit script of current object helptext header 0,2,2,25,0 curProp cheader false pvalue \updateBrowser Tsetprop stbk_curOb lScurProp pname selectChange selectChange 4stbk_curOb pname = curProp pvalue = setprop updateBrowser canSee dropDownLineCount scrolling falsea stretchStage clipMedia centerMedianded pushButton shadowed checkBox3D radioButton3D textHeader \updateBrowser pageref TsetProp fheader stbk_curOb lScurProp updatePropFromHeader stbk_beforeVal fheader stbk_Canceled cancelPropFromHeader -- update the property. (sent enter pressed #checkmark updatePropFromHeader justLeftField 4stbk_curOb pageref = fref = fheader setProp <,curProp updateBrowser they old value cancelPropFromHeader 4stbk_beforeVal,stbk_Canceled canType false canSee fheader stbk_beforeVal updatebuttons enterField updatebuttons updatePropFromHeader stbk_Canceled leaveField updatePropFromHeader ^mcancelPropFromHeader propvalue keychar that browser where values can be edited -- store Muser cancels 4stbk_beforeVal enabled "updatebuttons" you leave , unless 4stbk_Canceled updatePropFromHeader keyEnter cancelPropFromHeader -- propValue typed fref = "propvalue" tl = selectedtextlines tl > 0 updateButtons check updatePropFromHeader buttonup updatePropFromHeader ^mcancelPropFromHeader buttonup cancelPropFromHeader dialog propValue buttondown "propValue" propgroup propname ^-adjustScroll propValue buttonDown tl = tl > 0 fref = "propValue" selectedTextLines adjustScroll propvalue propButtonGroup \updateBrowser stbk_curOb buttonclick yhelptext statusbar mouseEnter statusbar mouseleave properties userProperties props properties uprops props -- scipt pprop) buttonclick 4stbk_curOb updateBrowser helptext statusbar B"props" value B"uprops" + 0*0 props Edit properties of current object helptext Objec&t Properties uprops Edit userProperties of current object helptext U&ser Properties obtype Background "credits"idget)\NEWREL.TBK"TBK" labelGroup nameLabel valueLabel Value splitter 0,2,2,25,0 readerlevelstatusbar browser 1395,915 noActivate false returnString 3390,4635 minClientSize 214,260 maximimumSize 286,608 propEdit Edit the property page "propEdit" cancel propEdit retval openWindow openWindow retval currentpage "propEdit" currentPage uProps Add userProperty page "upropsdlg" cancel retval openWindow openWindow retval currentpage Dialog1 Page "bottomBar" Select Object Page "selectObject" parentWindow viewer id 1 of Book "C:\JXBETA\TBKTOOLS.SBK" parentWindowHandle Dialog2 "stPosition parentWindowHandle returnString Page "settings" . ge 4 Dialog3 "v#H# Browser [Main Window] Bar"] Building Page List Page "wait dlg" C:\A\MTB30\BOOKS\TEST,true,false Animation: 1 of Field id 0 standard Full Text Search %dRSB %TB30.SBK" Page id 7 of Book "C:\MTB30\MTB30.SBK" tbk_wid_name,Dog false Credits Page "Credits" SetTimer KillTimer AnimateCredits CreditsViewer AnimateTimer Credits xSetTimer openWindow KillTimer AnimateTimer closeWindow openWindow 4AnimateTimer, CreditsViewer X"User" gSetTimer( KillTimer( translateWindowMessage windowHandle on 0x113 AnimateCredits --If we were unable a timer Fclose the e, 1, 1, 0) = 0 = targetWindow closeWindow <> 0 sftsKwNum closeWindow closeWindow 4sftsKwNum dialog w+U!! statusBar openWindow openWindow statusBar wait dlg mm_MediaHelp settings setCursor openWindow .&+ +E setCursor setCursor --This handler translates emessages WM_SETCURSOR openWindow translateWindowMessage oclienthandle on 0x0020 setCursor oparentHandle windowHandle sets the cursor arrow ever hWnd, msg, hWndmsg, hitTest, mouseMessage = 0x0200 o<> 2 o<> 1 bottomBar initViewer setCursor openWindow .&+ +E setCursor setCursor setSize SelectObject cancel initViewer --This handler sets the buttons ToolBar correct toggle state translates emessages WM_SETCURSOR WM_NCRIGHTBUTTONDOWN openWindow translateWindowMessage oclienthandle on 0x0020 setCursor initViewer cursor arrow ever YhWnd, msg, hWndmsg, hitTest, mouseMessage o<> 1 o<> 4 setSize ClientSize ocurrentPage enabled FALSE B"SelectObject" SelectObject setCursor openWindow .&+ +E setCursor setCursor --This handler translates emessages WM_SETCURSOR openWindow translateWindowMessage oclienthandle on 0x0020 setCursor oparentHandle windowHandle sets the cursor arrow ever hWnd, msg, hWndmsg, hitTest, mouseMessage = 0x0200 o<> 1 mm_MediaWidgets Media Widgets clipRef preLoadMedia autoPlayMedia autoCloseMedia autoShowMedia SliderUpdate MediaSizing Media Widgets page "mm_MediaWidgets" page "mm_firstWidget" turnString boolean boolean boolean boolean boolean list,stretchMedia,stretchStage,clipMedia,centerMedia Page "ftsscripts" e id 0 Add Hyperlink Button Media Widget Help #dia Packager ripts currentStage dia Specialist Media Widget Properties mm_MediaImager ge "browser" Stage id 27 of Page id 0 Stage id 46 of Page id 0 Media Widgets Help page "mm_WidgetProps" page "mm_MediaWidgets" Group id 47 of Page id 0 of Book "D:\CLIPS.TBK" currentObj page "mm_mediaHelp1" Media Widgets Properties Stage id 10 of Page id 0 Animation Settings 116 of Page id 0 "D:\CLIPS.TBK" clipRef AutoLoad SliderUpdate MediaSizing page "mm_firstWidget" mm_MediaDialog page "mm_WidgetProps" ediaImager" enabled 1FALSE moved defaultposition page "mm_mediaHelp1" Stage id 29 of Page id 0 Choose Path Path e id 0 ge id 5 of Book "C:\MTB30X\MTB30.SBK" Page id 61 of Book "C:\A\MTB30\MTB30.SBK" dia Packager Found scripts Stage id 32 of Page id 0 currentWin whatWin mm_MediaImager windowshown windowshown whatWin = "mm_MediaImager" enabled 1FALSE %dPageRef %" D %it Property it Property Find and Replace in Scripts %turnString Page "ftsscripts" Page id 5 of Book "C:\MTB30\MTB30.SBK" AnimateCredits CreditsViewer getActiveWindow AnimateTimer Credits xSetTimer SetTimer KillTimer GetActiveWindow openWindow KillTimer AnimateTimer credits +endAnim closeWindow openWindow 4AnimateTimer, CreditsViewer X"User" gSetTimer( KillTimer( gGetActiveWindow() getActiveWindow()& k&windowHandle translateWindowMessage on 0x113 AnimateCredits --If we were unable a timer Fclose the e, 1, 1000, 0) = 0 = targetWindow closeWindow <> 0 endAnim "credits" p_Book MS Sans Serif MS Sans Serif System Courier New p_button lst_button color,hls list,color,frame,none boolean list,yes,no,ask,system script boolean solidColorsEnabled uniqueName userProperties windows &H0ame userProperties useWindowsColors p_background color,hls color,rgb color,rgb script boolean color,hls boolean lst_background color,hls list,color,frame,none boolean list,yes,no,ask,system script boolean solidColorsEnabled uniqueName userProperties windows color,hls list,color,frame,none boolean list,yes,no,ask,system script boolean lst_Book boolean script boolean boolean percentFreeSpace script skipNavigation storedImages storeImage uniqueName userProperties list,automatic,manual boolean boolean transparent uniqueName updateType upToDate userProperties useWindowsColors vertices visible tUnderflow transparent uniqueName userProperties useWindowsColors vertices visible 3iqueName userProperties useWindowsColors vertices visible p_field lst_field p_oneDgraphics lst_oneDgraphics boolean boolean list,none,rectangle,inset,raised,shadowed,scrolling boolean boolean boolean boolean boolean list,wordWrap,noWrap,singleLineWrap,singleSelect,multiSelect color,hls font,text font,text font,text color,rgb color,rgb multiLine script color,hls list,left,decimal multiLine list,left,center,right,justify boolean boolean boolean F|#Name userProperties useWindowsColors vertices visible @$selection script state style tileOrder uniqueName userProperties useWindowsColors windowHandle Dboolean boolean transparent uniqueName updateType upToDate userProperties useWindowsColors vertices visible tUnderflow transparent uniqueName userProperties useWindowsColors vertices visible p_comboBox boolean boolean boolean list,bookDefault,color,frame,none boolean script textOffset uniqueName userProperties iqueName userProperties vertices visible boolean boolean boolean lst_comboBox boolean boolean boolean list,bookDefault,color,frame,none boolean script P5:& boolean script boolean boolean boolean boolean boolean color,hls list,none,1,2,3,4,6,8,dotted,dashed color,rgb color,rgb script color,hls boolean useChromakey boolean lst_paintObject vertices visible 4niqueName userProperties p_twoDgraphics lst_twoDgraphics p_group lst_group boolean boolean boolean color,hls list,none,1,2,3,4,6,8,dotted,dashed color,rgb color,rgb script color,hls boolean boolean boolean boolean boolean boolean list,bookDefault,color,frame,none boolean script boolean script boolean boolean boolean boolean boolean boolean boolean boolean list,thickFrame,thinFrame,dialogFrame,shadowed,none list,normal,thin,none boolean list,child,popup boolean boolean list,0,1,2 boolean color,hls list,1,2,4,8,16 boolean pageScroll boolean boolean boolean script list,minimized,maximized,normal list,top,bottom,left,right,none list,popup,child useWindowsColors tedTextState selection script state style tileOrder uniqueName userProperties useWindowsColors windowHandle upToDate userProperties useWindowsColors vertices visible ;niqueName userProperties iqueName userProperties vertices visible eColor transparent uniqueName userProperties vertices visible p_hotword lst_hotword p_oleObject lst_oleObject boolean boolean boolean boolean boolean list,thickFrame,thinFrame,dialogFrame,shadowed,none list,normal,thin,none boolean list,child,popup boolean boolean list,0,1,2 boolean color,hls list,1,2,4,8,16 boolean pageScroll boolean boolean boolean script list,minimized,maximized,normal list,top,bottom,left,right,none list,popup,child useWindowsColors @;tedTextState selection script state style tileOrder uniqueName userProperties useWindowsColors windowHandle transparent uniqueName updateType upToDate userProperties useWindowsColors vertices visible textOffset uniqueName userProperties p_page boolean script boolean boolean lst_page p_recordField lst_recordField boolean boolean boolean list,bookDefault,color,frame,none boolean script boolean script boolean boolean boolean boolean list,none,rectangle,inset,raised,shadowed,scrolling boolean boolean boolean boolean boolean list,wordWrap,noWrap,singleLineWrap,singleSelect,multiSelect color,hls font,text font,text font,text color,rgb color,rgb multiLine script color,hls list,left,decimal multiLine list,left,right,center,justify boolean boolean boolean Y)erties useWindowsColors vertices visible script boolean visible bounds dragImage drawDirect idNumber innerBevelWidth outerBevelWidth outline layer mediaSize noDropImage notifyAfterMessages notifyBeforeMessages object parent position readerVisible roundedCorners script stageAnchor stageSizing transparent uniqueName userProperties vertices visible p_mmContainer boolean boolean noDropImage boolean boolean script list,center,topLeft,topRight,bottomLeft,bottomRight list,centerMedia,clipMedia,stretchMedia,stretchStage boolean boolean lst_mmContainer color,hls color,rgb color,rgb script boolean color,hls boolean @,IgbStroke script storedImages storeImage strokeColor uniqueName userProperties useWindowsColors script boolean visible activeCacheFile backgroundCount buildCacheFile cacheFileType CDMediaPath customColors footer header HDMediaPath hotwordColor hotwordStyle keepMenuBar object pageCount palette saveOnClose script solidColorsEnabled uniqueName userProperties windows >userProperties vertices visible activated baselines borderStyle bounds defaultAllowDrag defaultAllowDrop dragImage drawDirect drawTextDirect enabled fieldType fillColor fontFace fontSize fontStyle idNumber indents layer noDropImage notifyAfterMessages notifyBeforeMessages object objects parent position rgbFill rgbStroke richText script scroll selectedTextLines spacing strokeColor tabSpacing tabType textAlignment textOverflow textUnderflow transparent uniqueName userProperties useWindowsColors vertices visible script boolean visible fillColor idNumber imageInvalid notifyObjects object objectCount objects pageCount parent pattern percentFreeSpace rgbFill rgbStroke script storedImages storeImage strokeColor uniqueName userProperties useWindowsColors `boolean boolean transparent uniqueName userProperties vertices visible borderStyle bounds caption CaptionPosition checked checkedGraphic defaultAllowDrag defaultAllowDrop disabledGraphic dragImage drawDirect enabled excludeTab fillColor fontFace fontSize fontStyle highlight idNumber invert invertGraphic layer noDropImage normalGraphic notifyAfterMessages notifyBeforeMessages object parent position rgbFill rgbStroke script stretchGraphic strokeColor textOverflow textUnderflow transparent uniqueName userProperties useWindowsColors vertices visible >t+boolean ^>KNb script boolean visible (V(:^g^ MS Sans Serif (V(:^ Arial (V(:^ Arial (V(:^ ^$_Q_ Arial _J@6Accaneer Lr?ble color,hls color,rgb color,rgb script boolean color,hls boolean WgbStroke script storedImages storeImage strokeColor uniqueName userProperties useWindowsColors bounds layer parent position script vertices visible borderWidth bounds dragImage drawDirect idNumber innerBevelWidth outerBevelWidth outline layer mediaSize noDropImage notifyAfterMessages notifyBeforeMessages object parent position postEffect preEffect readerVisible roundedCorners script stageAnchor stageSizing transparent uniqueName userProperties vertices visible ]:(one,1,2,3,4,6,8,dotted,dashed list,1,2,4,8,16 boolean boolean boolean color,rgb color,rgb boolean boolean color,hls boolean boolean list,left,decimal list,arc,angledLine,borderlessField,button,checkBox,checkBox3D,comboBox,curve,ellipse,field,irregularPolygon,labelButton,line,magnify,ole,polygon,pie,radioButton,radioButton3D,reader,recordField,rectangle,roundedRectangle,select,singleSelectListBox boolean boolean boolean boolean boolean list,english,metric boolean list,left,right,justify,center boolean boolean boolean color,hls font,text font,text font,text boolean boolean boolean boolean list,none,1,2,3,4,6,8,dotted,dashed list,1,2,4,8,16 boolean boolean boolean color,rgb color,rgb boolean boolean color,hls boolean boolean list,left,decimal list,arc,angledLine,borderlessField,button,checkBox,checkBox3D,comboBox,curve,ellipse,field,irregularPolygon,labelButton,line,magnify,ole,polygon,pie,radioButton,radioButton3D,reader,recordField,rectangle,roundedRectangle,select,singleSelectListBox boolean boolean mm_mediaHelp credits X2-- These scripts were written Hanother handler. -- returns values . Hard-coded speed. f_background obj imageInvalid notifyObjects percentFreeSpace rgbFill obj & rgbStroke storedImages storeImage useWindowsColors Book f_Book obj activeCacheFile buildCacheFile cacheFileType CDMediaPath HDMediaPath hotwordColor hotwordStyle keepMenuBar palette saveOnClose windows V(cnt-1) f_button obj CaptionPosition checkedGraphic defaultAllowDrag defaultAllowDrop disabledGraphic dragImage drawDirect enabled excludeTab invertGraphic noDropImage normalGraphic notifyAfterMessages notifyBeforeMessages stretchGraphic textUnderflow comboBox f_comboBox obj dropDownItems editable lineCount scrollable selectedItem sortItems f_field obj drawTextDirect fieldType richText selectedTextLines oneDgraphics f_oneDgraphics obj lineEndSize lineEndStyle twoDgraphics f_twoDgraphics obj f_group obj autoRadioButtons f_hotword obj textOffset oleObject f_oleObject obj action reference trackSize updateType upToDate (txt) f_page obj skipNavigation f_paintObject obj useChromakey f_recordField obj obj) & selectedTextlines f_window obj alwaysOnTop alwaysReader authorStatusBar autoClose autoShow autoSize captionBar centerClient clientHandle clientSize currentPage defaultClientSize defaultPage defaultPosition defaultState defaultType hideOnDeactivate icon imageBuffers isOpen matcolor maximumSize minimumSize mousePosition onBackground pageScroll parentHandle parentWindow readerStatusBar revertFocus selectedHotwords selectedTextState state style tile tileOrder type windowHandle systemProps f_systemProps obj activeWindowHandle caretLocation focusWindow startup3DInterface startupDrawDirect startupReaderRightClick sys3DInterface sysClientHandle sysCountry sysCurrency sysDrawDirect sysErrorNumber sysEvening sysICountry sysICurrDigits sysICurrency sysIDate sysIDigits sysILZero sysIMeasure sysINegCurr sysITime sysITLZero sysLanguage sysLineEndSize sysLineEndStyle sysList sysLongDate sysMagnification sysMediaBreakKey sysMediaSuspend sysMMEngineVersion sysMorning sysOpenMedia sysOperatingSystem sysOptimizedSave sysPageUnitsPerPixel sysReaderRightClick sysRGBFill sysRGBStroke sysRuntime sysShortDate sysShowMRUfiles sysSupportedMedia sysSuspendMessages sysThousand sysTimeChar sysTool sysTransparent sysUseWindowsColors sysVersion targetWindow widget f_widget obj stage f_stage borderWidth innerBevelWidth outerBevelWidth outline mediaSize postEffect preEffect readerVisible roundedCorners stageAnchor stageSizing WM_LBUTTONDOWN hWnd, Msg, wp, x, y 4s_anim_PathObject, s_anim_selectedVertex, s_anim_dragging, s_anim_CurrentObject, s_anim_selectedTool 4s_anim_dy, s_anim_dx, s_anim_animationSettings[], s_anim_idleAnimations focusWindow = ( <> stopAnimation "aborted", mousePos = clientToPageUnits( theTarget = objectFromPoint( "selectionHandles"))) -- they clicked on path, a {itself, message ssm = sysSuspendMessages = TRUE lockScreen a vertice 2] too verticeCount addVertice( WHITE BLACK moveTarget vertexPosition( e= FALSE = ssm onBackground whatLayer = " && QUOTE & &TAB& combobox " "SelectObject" selectChange "selectObject" %modal do_buttonDown , isShift, isControl, x, s_anim_Pathdx, s_anim_Pathdy, s_anim_Objectdx, s_anim_Objectdy ZnewVertice changeSelectedVertex = 2]) > 2 2] = removeVertice( "Deleting one Jtwo awill create a Editing a same %creating a Honly reuses allocated instead allocating Do you want delete f"&OK" "&Cancel" = "OK" clearAnimation B") ) 2] too be off --so correct v ex >= "BottomBar" buttonClick = " <> " -- update current Bhilighted r= -1 error sizeTarget do_dragging --moves lines = -1 do_endDrag tdy, ex,s_anim_segLengthList, hypotenuseFromVertices( /"compiler" [s_anim_pathdy ex = 1 ex = showHandles "SelectionHandles" do_curveVertice asure that 's valid a curved one previousLine nextLine xlastCurve xfirstCurve beside another } so oldCursor = xmiddleCurve - 1) + 1) newCurveID = drawCurve( -1), -1), ) + 1 - 1) + 1) objectColor( "This can't become a ."&&\ "A existing do_keyDown stepSize = 10 -- sysPageUnitsPerPixel * -- el * keyDownArrow -- -- -- -- -- -- -- s_anim_SelectedVertex) 2]) > 2 LockScreen 2] = ex < 1 f"&OK" = "OK" ex = 1 ) + 1 "bottomBar" pathObject based on given moveVertex verticeNumber, newPosition, ZOBJECT has changed l) -- compensates width l) -- height + 1) - 1) , dx, dy, currentObject -- tempPos CurveTopVertice( -- 's a regular -dx, +! = 1 5! = +!dy, t) > 0 ! > 1 sizePercent = ! - 1 xGrowBy = (( ~!15] + ( !16] - !15]) * o) - )DIV 2 yGrowBy = (( !15] + ( !16] - !15]) * ."15]) - T"15]) - <> 0 currentOBject ># = drawHandle x, y, curvedVertices, (x - 3* l),(y - 3* (x + 3* l),(y + 3* > 1) > 1 color ellipses excludeTab drawDirect drawLine fstPt, sndPt, i ! (e.g. vertext i-1) fill midPt, lstPt, i -- 's a U(i - 1)) "CurveColor" U(i)) ZnewObjectList, oldLineID, oldRectangleID $SysSuspendMessages l reference -- M - 1) newLineID = -- -- newRectangleID = !old property xanymore + 1) (CurvedVertices) - 1) - 2) + 1 m(i) --there adding + 1 - 1) ) + 1 ( = ssm ZremoveRectangleID, removeLineID e) = --removing a - 1) + 1) - 1) -- also either = 1) + 1) + 2) + 1) + 1) + 1) - 1) - 1) deleting + 1) -- just a - 1) - 1) - 1) + 1) -- + 1) - 1) - 1) -- fno curves envolved + 1) - 1) --re- ) - 1 B(i+1) U(i+1) m(i+1) B(i+1) special -1) - 2) - 1) - 2) - 1) -- deleted Uso no re-numbering necessary. = ssm value "curveColor" ghostColor LIGHTGRAY StrokeColor -- gets a -- used being moved editPath theVertices ZAx,Ay,Bx,Bye,Cx,Cy ((Ax y4) + (Bx y2) + (Cx ((Ay y4) + ( y2) + (Cy -- clears *4 information ClearAnimation h4i] = z415] = 416] = ss = dimensions( 4ngs) isn't objectAnimation reset a kludge Zthey fix media path delimiter, needs be removed 4shipping swapChar oldChar, newChar, txt -- Tim Pearson, Asymetrix 6/94 packageClips 8 stbk_thisBook Z stack clips, hdPaths, cdPaths, otherSearchPaths, affectedFiles Z logical hdHasPlaceHolder, cdHasPlaceHolder, interrupted, inComplete, inHdPath, inCdPath, searchHd, searchCd, skipped Z bookPath, curClip, clipRef, src, newSrc, allCmd, dir, newFile, srcPath linkDLL "tb30dlg.dll" STRING ListToTextline ( OpenFileDlg ( 3,INT) =SortList ( # CopyFile ( ; FileExists ( R MoveFile ( j RemoveFile ( mediaPath( (";",",",HDMediaPath (":",",",CDMediaPath = resourceList(" the place holder Ftemporily substitute :real = TRUE files mark %searchHD searchCD <> NULL statusBar -- build UI description " && " && QUOTE & src = mmSource "CDaudio,VideoDisc,VCR,overlay" -- these don't have references, so them -- see explicit should `mmSearchHD mmSearhcCD -- try find under mediaPaths, fthere , otherwise well findClip( ) <> ) <> findFile(shortFileName(src), ) -- we didn't , so look paths already helped us -- found -- can't , so ("Find & "," & = FALSE -- mmSearchCD so we -- update -- now that we changed a relative , lets through loop we're <> 1 ) -- , so & "," & = inPaths( directory either prompt haven't chosen moveAll CopyAll, pkgPrompt( copyAll rest -- since a hardDisk , we can assume want a cdRom , we = dir & "\" & ) <> 1 -- moveError( t) -- error, option bailing = "Yes" list /copied e , so we -- remember so we updated below mmSearchHd mmSearchCd ) <> 1 ) <> 1 copyError() ) <> 1 CopyError() = "Add" (",",";", "clipPkgPrompt" -- 've added , we disk (",",";", -- , we ) + 2 -- finally, placeHolder = minimalPaths( lowest common denominator directories = insertPlaceHolder( -- msgBox("","This Hard which are alright ?","Question","YesNo") may be child , so just ) clean (",",";", ) -- CD-ROM (",",";", (",",";", (",",";", unlinkDLL " tk30dos. Packaging completed, however 1 more were .","Exclamation") incomplete."," sCompleted Successfully.","Information") -- returns without fName i - 1 -- looks finds pathList Z retValue & "\" & ;) = 1 fileName, & "\" & ) = 1 whether -- prompts each Z init[] 1] = #2] = " " && ?2] = Z3] = f4] = tbkToolsDlg( ,"Choose Package Option", -- gives efailed continuing quiting a problem copying " && upperCase( & ". There xbe enough Would you like dpackaging?"," . If because destination on different drives, a attempted, followed Ha delete successful errNum, = -17 -- moving accross " && & ". filename partially) qualified cnt - 1 Vi+1 -- removes redundancy updates mmSources appropriately. ex) passing C:\FOO\BAR,C:\ \BOB would yield C:\ L , curPath = removeDuplicateItems( replaceRelativePath ) + 2 & "\" sortList( duplicate ms lst Z curItem + <> -- walks replaces every occurance oldSrc, Z oldDirOnly, = directoryOnly( ! -- asure & "\" & v! & replaceExplicitPath oldPath, newPath H"src v" = " = newpath & letter ~(":", #"existance itemExists itemTxt, $ lst -- displays "Windows messageBox "response &, @icon, @buttons, defaultButton, modality \ @style -- defaults: a single OK appliciationModal $ "USER" INT MessageBox (WORD, = "OkCancel" = 0x0001 = "AbortRetryIgnore" = 0x0002 = "YesNoCancel" = 0x0003 = 0x0004 = "RetryCancel" = 0x0005 = "Stop" H0x0010 H0x0020 H0x0030 H0x0040 H0x0100 H0x200 H0x1000 = "task" H0x2000 = "" K= "" (windowHandle targetWindow,@ = "OK" = "No" KERNEL" playMIDI myChan, myKey, myVelo 4 s_hMidiOut,s_stop noteOn = 144 + 9 -- 144 3 = TRUE MidiOutShortMsg( gpackDword( -- sending fvelo the same a noteOff changeProgram chngProg = 192 + -- 192 U program _,0)) stopMIDI = 128 + -- 128 openMIDI 4 s_device, Z pMem closeMIDI MidiOutGetNumDevs() <= 0 devices found" -1 -- midi mapper hMem = globalAlloc(66,32) = globalLock( MidiOutOpen( 0,0,0) -- "Unable globalUnlock( globalFree( MidiOutReset( MidiOutClose( packDWord a, b, c a + (b * 256) + (c * 65536) 4s_mm xisOpen "credits" 2 = 10 X"mmSystem.dll" DWORD timeGetTime() -- link memory management functions linkDLL "KERNEL" M GlobalAlloc( e GlobalFree( y GlobalHandle(INT) POINTER GlobalLock( GlobalUnlock( skipDlgAnim initMidiMapper openMidi initSong startSong 4s_songPointer, 4dlgViewer stopMidiTimer closeMidi unlinkDLL " kernel" 4INT s_chanOffset,s_drumOffset -- we will take a peek see what map -- currently . If there a port channel 1, we'll assume -- that a high level card, )least -- 1. We tell because named, written a particular address file we dlocate information hM = y-- should happen "Low Memory!" = 12 -- we'll try anyway pM = sysSize = getSystemDirectory(pM,144) sysDir = 1(0,pM) midiMapper = 2& "\midimap.cfg" imHere = 6 1 -- location cMNum = ) -- cM channelMap cMOffset = 14 =* 54)-- lowByte = highByte = ) * 256 cMAddress = Q+ 2 - ) <> 0 -- we have a -- we'll point, doesn't we just give up. = 12 [189][5] iPointer,s_aPointer 4s_lastSongPointer fill ] order s_iPointer = 72 -- trumpet } < 0 = 24 -- acoustic guitar [3][4] = [1][4] = -- now we find dimensions( <> 0 -- only we need [i][3] = 9 [i][3] [i][3] midiReady 4s_startTime, [189][5] startMIDITimer A = getTime() + 50 = FALSE k32768) [3][4] = [1][4] = startMidiTimer 4midiTimerID, , creditClient "USER" midi_setTimer = SetTimer ( ,INT, midi_killTimer = KillTimer ( = clientHandle tbk_bookRef() = 1555 ,10,0) -- ("Could xsetup , no translateWindowMessage 0x001F stopMIDITimer 0x0113 SYSTEM untranslateWindowMessage 0 whatHandle, whatMsg, wparam timerNotify whatTimer [189][5] 4s_timerId, ZmErr s_timerID (80) - 1 Z"|" & & "|" "|36|37|38|39|43|47|52|53|54|55|58|62|63|77|" aList = "0,1,2,3,6,7,11,12,15,24,25,26,27,45,46" rAList = animateCredits l_songPointer = -- asure we messin' around R][2] b-- sends message 8depending on type ][3], ][4], ][5]) ][3], ][4]) ][3], ][4],0) ][3], ][4]) -- error condition "Error < 0 = -1 = -2 = -3 = 190 o;-- unlink the DLLs used removeLinks -- unlinkDLL "tb30win.dll" %dlg. 1KERNEL" >fts30mtb. OUSER" required initlinks 4sftsIndexingAvailable functions work finitialization files STRING ftsGetIniVar = getIniVar( WORD ftsSetIniVar = setIniVar( { management INT ftsFileExists = fileExists( $ ftsRemoveFile = removeFile( JCopyFile = copyFile( ftsDosString = getDosEnvironmentString( dialog related ChooseDirectoryDlg = chooseDirectoryDlg( OpenFileDlg = openFileDlg( ,INT) SaveAsDlg = saveAsDlg( FileListDlg = getFileListDlg( ListToTextline = listToTextline( TextlineToList = textlineToList( memort GlobalAlloc= ,DWORD) GlobalFree= GlobalHandle= POINTER ftsGlobalLock= GlobalUnlock= oldSuspend = = FALSE full- indexing -- Author level ftsRemoveIndex ftsInitIndex LONG ftsAddContext ftsAddPage ftsAddTextToSection ftsAddSectionsToPage ftsBuildIndex -- Reader ftsOpenIndex ftsCloseIndex ftsTagEntries ftsNamedSections ftsTags ftsContextCount ftsContextTitle ftsAllContextTitles ftsQuery ftsReQuery ftsSetContextScope ftsAllMatchingTitles ftsAllMatchingRefs ftsMatchTitle ftsMatchRef ftsGetOffsets -- Error Handling ftsSetErrorNotify ftsGetErrorNotify ftsGetErrorNumber ftsGetErrorString -- DialogBox ftsSearch ftsSearchKeyword le = ( r= NULL) access Help ftsWinHelp= ftsWinHelpNum= a hyperlink ftsAddlink -- initialize be displayed tbk_bookRef() -- identify vwrRef = "standard" values Hyperlink Button" currentpage modally -- close isOpen ftsCreatelink "newHW" "Add Hotword" a selected ftsEditlink ftsModifylink s=selectedHotwords -- returns a locked nSize ftsGetWinPointer memFlag = 66 ZretValue -- allocate memory : = ftsGlobalAlloc( "Failed allocating retval = -- unlocks frees supplied. ftsFreeWinPointer pMem = ftsGlobalHandle( ftsGlobalUnlock( ftsGlobalFree( entry textEntry dbCaption,dbPrompt,initVal,dType entryDlg = entryPg = "title" dataType retrieve entered Bhides Cancel Bcloses point user clicked OK Iancelled trailing tagEntry -- datatype identifies message handled Ha notifybefore handler -- a radio buttons on initType up a multiline multiEntry dbType validation: will xallow fcommas blank entries textlineCount( itemTxt = ftsTextlineToList( checks itemnumber that itemNumber xitem,xlist settings associated given xassigned) getSetFile 4sftsInfoVal ensure 8has a infoDlg "","This 8must be saved action may be performed." -property filename setFile = ftsSetFile + exists... <) < 0 -- a default Hreplaing 8's extension -- f"SST" fileName = stripExtension( -- Settings Not Found xfound" -- was chosen -- otherwise ) removes three letter without c = offSet(".", c <> 0 -- splitPath() separates a path Ipart scond actual ,fname cc= c = cc cc > 1 <> "\" c > 0 c < cc V(c+1) writes writeDefaultSST 4sftsMainBk -- create defines global options generating a sectionName = "CREATE" ,"MANAGER","aapi", -- estimate textbase ( 1 unit = 256 bytes) r,"TXFSIZE",1000, -- location common wordFile = sysToolBookDirectory & "COMMWORD.TXT" 4) > 0 ,"CWDFILE", special treat ,"SPECIALS","", named be included concordance ,"TITLE_SECTION"," ,YES", -- names concordable psections ,"CONC_SECTION","", ,"NON_CONC_SECTION","", whether be concorded ,"DEFAULT_SECTION","OTHER, -- maximum paragraphs per ,"MAXP_PER_SECT",500, contexts ,"MAXCHP",65534, articles ,"MAXART",65534, ,"MAXPAR",65534, ,"MAXWRD",65534, -- total keyfields (minimum 2) ,"KEYFIELDS",3, -- compulsory ,"KF1","#HANDLE C", ,"KF2","#ARTREF A", ,"KF3","#KEYWORD C", ,"FIRST_CHAP"," books ("Options","includeBooks", {types incOptions = " OdObjects", -- excluded ","", continues through textFlow","TRUE", -- keywords !("Keywords","Lines",0, !("Contexts"," -- build based on ftsCreateIndex 4sftsSetFile, 3) < 0 ` <> -- "main" ftsSearchIndex indexName = ftsIndexName pgRef = Q,windowHandle bkName = -- insert reference isObject( "Cannot navigate Full ","You 4searches ftsKwSearch ftsIndexSettings ) < 0 stepBack ftsReaderSettings ) < 0 8#Level ftsPageSettings ) < 0 ftsHWSet ZvalName ) < 0 -- determine currently s = selHW = -- disallow multiple hotwords 4) > 1 ","Multiple . are . Please only -- ) = 1 -- -- flags -- initPage -- -- what comboBox "choice" = "[None]" -- should be created... hotwordstyle -- pops up ftsObjectSet ) < 0 -- selOb = obJect -- xcanceld -- secName = -- ftsSection -- ftsExclude /wait openWaitDlg ,dbMsg "msg" -dlg" closeWaitDlg -- use inserting a single U. Will maintain sorted order. No duplicates ftsInsertLine txt,newLine ending ZinsertSpot midPoint middleLine looking ' less than ( greater already > tlc removing a ftsRemoveLine matching ftsFindLine num = -- calls winHelp 6specified callWinHelp contextName [contextNum $ = "MM_CMD_Build_Index" O = "MM_CMD_Hotword_Settings" = "MM_CMD_Index_Settings" = "MM_CMD_Object_Settings" = 62603 = "MM_CMD_Page_Settings" = 62606 = "MM_CMD_Reader_Level_Settings" = "MM_CMD_Search_Settings_Not_Found" = 62612 = "MM_CMD_New_Context" = 62618 = 62594 = "MM_CMD_New_Section" = 62620 = 62596 = "MM_CMD_New_Tag" = 62622 = "MM_CMD_New_Keywords" -- ,"MTB30.HLP",257, -- -- bring up help doHelp *Message infoPg = -- resize msgField = dbMessage maxSize = "frame" - 180 `> 0 centerLine = 90 + ( ) / 2 currentPage updateSettings 4sftsTitle,sftsCntxt = keyEnter buttonClick B"ok" B"help" 4sftsSetFile,sftsKeywords,sftsContexts, Zkeywords,contexts reference the current pgRef = -- display ,<> NULL `" = "Page"&& title #" = ( ftsTitleValue S" = ( -- store initial , so later we can changed see whether override default location titleInObj = (ftsTitleOverride setting enabled B"property" = w" = titleLoc = ftsGetIniVar("Options"," -- there {defined {" = TRUE {" = obType = " = " -- so disable those options {" = FALSE {" = exluded B"exclude" = (ftsIgnore comboBox " " = ( ftsContextValue " = ( " = "" so we pgKeywords = ftsListToTextline( global list numLines = n","lines", isType(DWORD, kwLine = ","kw"&i, itemNumber(kw, ) = 0 "index available contextLine = dropdownitems combobox " " = "< [newContext [newKW saveSettings overrides qvalue. " <> -- stroe should be excluded " <> "< -- does xuse -- " <> -- juses -- other more W were added these qvalues = dropDownItems = ftsTextlineToList( numcontext = [currLine lineCnt = 0 currcontext P) > 128 ftsSetIniVar(" = ftsInsertLine( numKW = currKW ) > 128 ","kw"& ","kw"& -- This message sent clicked changed Hsetting -- tabMode. Put code handler, -- on tabPressed tabNum -- handles clicking on buttonclick -- test 9was Hchecking "obtype" userProperty -- each named " ", N being tabname -- Changes which 9folder front. It does Hmoving U"mask" -- Value zbetween 1 tabs value < 1 > tabLimit() "Cannot 9" && -- moves visually -- appear See sized below adiagram v + xpix(), -- stores a userproperty myTabMode -- sends notification -- The handlers resizing ,mode. -- -- Used %a constant. Returns -- Note: you wish more , follow procedure: -- Go duplicate one -- Rename that 9appropriately. ( instance would -- be Tab7", thirteenth # be "Tab13"). -- Set its behind function reflect pageUnits given n pixels. sysPageUnitsPerPixel * n ypix n Qel * n -- returns currently selected -- sets up height units. tabHeight mytabheight handled myTabHeight tabSpace myTabSpace arrangeTabs numTabs valid parameter "Must have )least 1 "Can only 2" && && " -- cache {reference optimization. 9"&i) i <= -- hidden %they've xbeen -- receiving them # are "manual" myNumTabs mynumtabs resized Notice -- methodSent: used differentiate =messages toolBook explicitly syssuspendmessages off toolbooks messaging, %we will be changing stuff. Without recursively -- calls itself over -- thing -- has a called -- -- 5,6 _________ 7,8 -- -- 3,4 | | 9,10 -- -- -- -- 1,2 |____________| 11,12 -- -- Here amap -- goal here maintain shape -- . (Otherwise gets stretchy.) Also, -- should be -- -- find how tall supposed -- tabRef -- tsection makes " corners -- Need be sure -- wide 4doing m"tabHighlight" B"tabLabel" 1 () editor. -- rectangular -- body sysSuspendMessages -- -- following condition triggered %a whole -- -- -- , even though their sizes So we must notify -- can themselves. -- -- xarranged -- 9"&i) -- don't bother arranging -- mynumTabs -- assures aligned context spaced evenly. anchor "tab1" mytabspace where order xpos bp - b(ts,0) through remaining place -- 9"&i) -- -- now tbit masking others. bchecks x(e.g., just moved tname above buttonClick 4sftsMainBk,sftsKwNum Zpath,fname filterList = "ToolBook books (*.TBK),*.tbk, k(*.SBK),*.sbk" bkName = pathAndName = splitPath( files = ftsGetFileListDlg("Add Files", 2<> NULL fileList = "included tlc = p) = 1 fullName = upperCase( &"\"& addBooks ftsSetPage() = TRUE buttonClick dataType = cbox = comboBox "formats" >= "U" enabled cBox = tl = selectedTextlines "tags" keyRef = initType dateFormats = "mm:dd:[yy]yy" & "dd:mm:[yy]yy" & "[yy]yy:mm:dd" B"U" dropDownItems combobox " B"U" B"U" &"/" "/R/I/T/C/" B"R" = keyEnter buttonClick B"ok" -- initialize initlink selOb ( values dialog B"transition" combobox "fx" = "slide" dest" "dir" "speed" B"Normal" spd there {selected... <> "newHW" -- {'s current = ftsLink -- tgtPg {links too -- Brepresenting B"other -- used = ftsTrans selectChange ( ,out" dir = = extSz = nrmlSz savelink s = 1440,360 = linkButtonScript() s = s = " s = selectedHotwords s = " tp = &&\ &&\ = "" bookScr = ftsHyperLink" k&linkBookScript() "-- hyperlink navigation" & "-- pecifies " & "-- specifies type" & ftsHyperlink " & " " " " "" " & " " " " & " "-- a message " -- are user " -- " & ftsLinkPage selectChange txt dir = dest = "" pt = % = "split" F = " R = "slide" ,context, w = "rain" = "turnPage" = "spiral" pt = = "wipe" = "zoom" <,lowerLeft,lowerRight,upperLeft,upperRight" pt = "dir" ftsLinkPage() = enabled comboBox " [dropdownitems combobox " dropDownitems iDest" "destlabel" = 0,50,0 -- moves the slider xpix sysPageUnitsPerPixel sliderMin sliderMax scale sliderBounds nearestPupp( oldP nearestPUPP( s_anim_dx pos - oldMouseX sliderPos mysliderPos startSliderMove leftMButton primaryMouseButton() newMouseX newP b(x1, ),x2-w) e-x1)* )/(x2-x1-w)+ sliderMove endSliderMove thumbwidth sysPageUnitsPerPixel) * 7 labelWidth 0el) * 30 sized > 2*thumbWidth() syssuspendmessages osliderPos osliderMin onumTics adjustNumbers -- sets the location specifed value Zscale sliderMax mysliderPos xpix sliderBounds "bar" nearestPupp( oldP nearestPUPP( percentage newP x1 + (x2-x1-w)* xsysSuspendMessages sliderMove -- renumbers labels tallTicSpacing adjustSize curfield %"0.00" xCenter U"0" %"0.00" curField -- centers {horizontally on maximum && " invalid." mySliderMax minimum && " mySliderMin frequency tic marks on high U"0" U"0" myTallTicSpacing tics on > 50 must be a between 1 U"base" (x2 - x1) / leftMost curLine curline myNumTics gets above. b-x1)* )/(x2-x1-w)+ -- notify handlers Mthese aren't handled. notifyBefore startSliderMove (endSliderMove -- returns whole pixel, pageunits W val, X"user" getsystemmetrics( notifyAfter primary mouse primaryMouseButton s23) >0 "Choice" = c" = = keyEnter buttonClick B"ok" B"help" procedure walks through the books included index modifies their scripts allow level searches modifyBooks 4sftsSetFile ZincBooks ZLOGICAL addMenus ( = ftsGetIniVar("Options","includeBooks", \ = NULL ) > 1 "This ."&&\ Uthese must be edited." f"Continue" "Cancel" 8."&&\ bookRef = handlerList = getHandlerList( "fullTextSearch" myHandler = getHandlerScript( "keywordSearch" "addIndexMenuItems" "removeIndexMenuItems" )ms") "enterApplication" numLines = textlineCount( ~ = " setHandlerScript( "leaveApplication" removeMenuItems" { = " linkDLL "fts30mtb.dll" STRING ftsSearch , WORD ) -- ftsIndexName a userProperty placed Tools sysBook builds indexName = "You path = <> "\" pgRef = ,windowHandle -- reference may have had its removed -- insert current isObject( a valid was found... -- otherwise... "Cannot navigate unlinkDLL " ll" Keyword ( <> "\" ftsSearchKeyword( -- ZoldSuspend ? = FALSE -- store value can be restored Page available menuEnabled(" )Reader) -- menus are already present menuItemEnabled("Full = TRUE ..." ..." %-- initialize menus: gets sent on enterMenu loadMenus menuAlias "tbk_tools" -- joseph's stuff e"Property Bro&wser" alias "customEdit" fhelpText "Viewer/editor e"Startup &Preferences..." `tbk_startPref" ^Set values _on startup." e"&Applications..." tbk_AddOnApps" Runs specified mtb30.ini file." e"&Find/Replace..." tbk_replaceScripts" Performs + on scripts c"&Center" Centers Kselected {(s)" e"Between &Sides" tbk_centerHorz" Bottom" tbk_centerVert" e"&Both Ways" tbk_centerBoth" c"Si&ze" Makes }a uniform e"Shrin&k Smallest" tbk_shrink" c"Size" e"&Grow Largest" tbk_grow" c"&Spread" spread" Puts between e"&Horizontally" tbk_spreadhorz" Distributes }based on S-most e"&Vertically" tbk_spreadvert" ]upper- &Tab Order..." tbk_TabOrder" Sets tabbing order e"Add &3D Style..." tbk_3D" fhelptext\ "Adds modifies 3D style rectangles fields" e"&Import ..." tbk_importText" Inserts rich e"&Export G..." tbk_exportText" Exports -- Jeff's "Path Ani&mation..." PathAnimation c"tbk_Tools" Creates path animations." -- Jim's c"&Hyperlinks" hyperLinking" Scriptless Hyperlinking P Button..." AddHyperlinkButton" a scriptless hyperlink EditHyperlinkButton" Edits a Hotword..." CreateHyperlinkHotword" EditHyperlinkHotword" -- mike's c"Me&dia" mm_media working fMedia Widgets" mm_MediaWidgets current ^ &Properties..." mm_WidgetProps -- tim's Pac&kager..." y mediaPackager" "Packages clip files." "indexing" -- jim's "&Index Settings..." IndexSettings" options building a full- "&Build i..." BuildIndex" Builds a "&Reader Level ReaderLevelSettings" level searching" NULL "&Page PageSettings" "&Object ObjectSettings" HotwordSettings" edits a "Full &Search..." FullTextSearch" "&Keyword KeywordSearch" a keyword spreading }proportionally -- n: 1 HspreadHorz spreadVert Zbnds,list,temp ZobjArray[][] xy1 = 1 obRef = 2 obcount = sortbyposition -- }, use that %standard sp = (n+2) 1][obref],0) loc = k2 + 1) ls = i-1][ ] + sp "You must more -- handles shrinking largest/smallest shrinkgrow how objList = ) < 2 sortbysize sz = sz = dimensions( ls = lowest lowestlayer minlayer = -- handler centering -- "how" newpos = 0,0 bkSize = "0,0" ls = curob curOb <> " -- sets up twoDquicksort i][1] = i][2] = sz = i][1] = sz * i][2] = -- sorting algorithm: -- keep mind arrays are passed here, fArray[][] ,n,dtype 4stbk_noSwap twoDquicksrt ;, 1, J),n, , l, r,n, r > l , l, ((l+r) lst = l (l+1) test = i][n] < l][n] i][n] < l][n] i][n] < l][n] stbk_noswap , l, -1,n, , lst+1,r,n, , a, b = farray[a][i] b][i] b][i] = -- brings up content a 2D requestArray a[][] d = ( a) a[i][j] & " " -- sculpts a existing 3D a 3D -- inOrOut specifies inset raised -- sculpted *whether outside border threeDeeRect ls = ls = curObj = curObjType = ll = lr = ur = ul = "OLE" "combobox" curLayer drawdirect bottomline = "bottomLine" sysPageUnitsPerPixel, topline = "topLine" ThreeDeeRect sized xThreeDeeRect xpix = -1* syspageunitsperpixel ypix = -1* "out" topcolor = bottomColor = ls = ( ll = lr = ur = ul = ll,lr,ur ll,ul, topColor ZfilterList,fileName needed dll linkDLL "tb30DLG. STRING saveAsDlg ( , INT) h = " f (*.txt),*. ,Rich (*.rtf),*. SaveAsDlg(" jrichtext ,fileLimit X"tb30dos.dll" LONG getFileSize( X"tb30dlg. openFileDlg ( { = 64*1024 } Files (*. txt,All (*.*),*.*" OpenFileDlg(" fileSize = fref = && " " && l&"; cannot exceed" && "Warning: will contents your f"OK" "Cancel" x"OK" oldCursor = se = se ss = = "{\ 1= ss setStartup tbk_linkIniFileFuncs section = getToolBookIniItem( m=gettoolBookIniItem( s","0,100,0") ","0,0,0") t","System") u",10) y",30),30) }","0,0,0") ",720) ","Left") notifyBefore clipRef <> NULL showWidgetsProps moved adjustControls "mmwidget_controls" sized ~<> AUTHOR mmWidgetSysBook -- HACK: Should use mmYield linkDLL "TB30WIN. mmYieldApp() (preLoadMedia = TRUE) ) <> (autoShowMedia showClip (autoPlayMedia playClip setClipControls notifyAfter (autoCloseMedia ) <> closeClip myClip = ( mmPlayable stageObj = whatStage checkStageSize openClip mmOpen ) <> mmClose pauseClip ) <> mmPause stopClip ) <> mmRewind mmShow seekClip argPos isReady( mmSeek & wait seekClipFromEnd stepClip stepDist stepSize = Q(mmLength / 20) mmPosition mmStep stepClipBack / 20) mmNotify argMedia, argCommand, argResult oldLock = lockScreen enabled = FALSE clipStat = mmStatus "stopped" "paused" "seeking" "playing" "closed" "Unhandled:" && getObjectList( whatClip "playingpausedstopped" stageSizing stretchStage newClip chooseResource( setMySize mediaSizing value () = myStage = mediaSize 1mmVisualSize N160,100 notifyBefore clipRef <> NULL showWidgetsProps moved adjustControls "mmwidget_controls" sized ~<> AUTHOR mmWidgetSysBook -- HACK: Should use mmYield linkDLL "TB30WIN. mmYieldApp() (preLoadMedia = TRUE) ) <> openClip (autoShowMedia showClip (autoPlayMedia playClip setClipControls notifyAfter (autoCloseMedia ) <> closeClip myClip = ( mmPlayable stageObj = whatStage checkStageSize mmOpen ) <> mmClose pauseClip ) <> mmPause stopClip ) <> mmRewind mmShow seekClip argPos isReady( mmSeek & wait seekClipFromEnd stepClip stepDist stepSize = Q(mmLength / 20) mmPosition mmStep stepClipBack / 20) mmNotify argMedia, argCommand, argResult oldLock = lockScreen enabled = FALSE clipStat = mmStatus "stopped" normalGraphic = InvertGraphic "paused" "seeking" "playing" = CheckedGraphic "closed" "Unhandled:" && getObjectList( whatClip "playingpausedstopped" stageSizing stretchStage newClip chooseResource( setMySize mediaSizing value () = myStage = n <> mediaSize 1mmVisualSize N160,100 notifyBefore clipRef <> NULL showWidgetsProps moved adjustControls "mmwidget_controls" sized ~<> AUTHOR mmWidgetSysBook -- HACK: Should use mmYield linkDLL "TB30WIN. mmYieldApp() (preLoadMedia = TRUE) ) <> openClip (autoShowMedia showClip (autoPlayMedia playClip setClipControls notifyAfter (autoCloseMedia ) <> closeClip myClip = ( mmPlayable stageObj = whatStage checkStageSize mmOpen ) <> mmClose pauseClip ) <> mmPause stopClip ) <> mmRewind mmShow seekClip argPos isReady( mmSeek & wait seekClipFromEnd stepClip stepDist stepSize = Q(mmLength / 20) mmPosition mmStep stepClipBack / 20) mmNotify argMedia, argCommand, argResult oldLock = lockScreen enabled = FALSE backward" B"rewind" clipStat = mmStatus "stopped" "paused" "seeking" "playing" "closed" "Unhandled:" && getObjectList( whatClip "playingpausedstopped" stageSizing stretchStage newClip chooseResource( setMySize mediaSizing value () = myStage = mediaSize 1mmVisualSize N160,100 procedure walks the books be included index removes settings xfound file. updateBooks -- declare 4sftsSetFile 4sftsValidObs 4sftsContexts, sftsKeywords, sftsSections 4sftsBooks, sftsVRef, sftsMainBk, sftsHwtags 4booksLeft Zcontexts,keywords,hwtags reference "dialog" tbk_bookRef() oldPageRef defaultPage status bar oldRSB = readerStatusBar = TRUE -- initialize -- these used throughout updateStatus "Reading Settings" -- list = ftsGetIniVar("Options","includeBooks", = NULL numLines = ","lines", isType(DWORD, kwLine = ","kw"&i, itemNumber(kw,pgKeywords) = 0 = ftsListToTextline( available contextLine = num = CREATE","KEYFIELDS", kfNum = kfieldData = VF"&(i+3), kfielddata named sections CONC_SECTION", B,comboBox" non-existant ftsFileExists( ) <= 0 %modal ) > 0 nextBook Scanning"&& ssm = sysSuspendMessages walkAllObjects ( -- clean up Done." close -- These two handlers specified. -- How routine works: every 8. Since aren't necessarily consecutive, -- checks ackground each has been stored ackgrounds array. If added -- sent walkObjects be walked. -- What's fuss about recordFields? Hotwords recordfields , which lives on . The returned , however, does hotwords. So whenever -- a passed adds vbackgrounds fone row , like ?[i][1] H[i][2] R[i][n] ... JReference 1> ... < -- When comes enumerate living their ZbackID, \backIndex {curPage -- xdefined, i <> ftsFindLine( ) = 0 kw = -- undefined (kw) kw) = 0 = kw -- -- we have previously -- dimensions( [j][1] -- -- so we don't visit ) + 1 ][1] = -- iterate ,backindex, -- objecttoWalk. -- On entry either a . Note: [][] only -- a [][] 4sftsLpMsg, Zstack tlist,objList recFieldCount {curObj objectToWalk = obRef = ) > 0 -- current {owns other -- curObjType = = getObjectList( ,FALSE) ) > 0 count iterating Jcondition below) recfieldCount = 0 ) > 0 located )[n][2] recIndex = 2 3]&&\ we're enumerating +2] = \ we're ) > 0 ) = 0 ) > 0 -- we already looked ) > 0 ) > 0 ) = 0 = ftsTag 's tag ) = 0 ) > 0 ) = 0 -- puts -- process statusbar message isOpen -- returns a friendly obName obj nm = ob = procedure, updates the settings file include stored )current books updateFile -- declare 4sftsSetFile 4sftsValidObs 4sftsContexts, sftsKeywords, sftsSections 4sftsBooks, sftsVRef, sftsMainBk, sftsHwtags 4booksLeft,bookCount Zcontexts,keywords,hwtags reference "dialog" tbk_bookRef() oldPageRef = defaultPage oldRSB = readerStatusBar = TRUE updateStatus "Reading Settings" -- initialize -- these used throughout -- list = ftsGetIniVar("Options","includeBooks", = NULL numLines = ","lines", isType(DWORD, kwLine = ","kw"&i, itemNumber(kw,pgKeywords) = 0 = ftsListToTextline( available contextLine = num = CREATE","KEYFIELDS", kfNum = kfieldData = VF"&(i+3), kfielddata named sections CONC_SECTION", B,comboBox" non-existant clean = FALSE ftsFileExists( ) <= 0 %modal -- walk each ) > 0 nextBook "about scan &&"("& $&")" Scanning"&& ssm = sysSuspendMessages walkAllObjects ( Done." -- close -- These two handlers 8specified. -- How routine works: G walks every 8. Since aren't necessarily consecutive, -- checks has been backgrounds array. If added -- sent walkObjects be walked. -- What's fuss recordFields? Hotwords recordfields , which lives on . The returned , however, does hotwords. So whenever -- a passed adds found fone row , like [i][1] [i][2] [i][n] ... JReference 1> ... < -- When comes enumerate living their ZbackID, \backIndex {curPage -- ] <> -- = ftsInsertLine( -- kw = -- xappear -- -- we have previously -- dimensions( [j][1] -- -- so we don't visit ) + 1 ][1] = -- iterate ,backindex, -- objecttoWalk. -- On entry either a . Note: [][] only -- a [][] 4sftsLpMsg, Zstack tlist,objList recFieldCount {curObj objectToWalk = -- replace obRef = ) > 0 -- {owns other -- curObjType = = getObjectList( ) > 0 count iterating Jcondition below) recfieldCount = 0 ) > 0 located )[n][2] recIndex = 2 3]&&\ we're enumerating +2] = \ we're ) > 0 ) > 0 ) > 0 ) > 0 = ftsTag ) = 0 ) > 0 -- puts status -- process tatusbar message isOpen statusbar -- returns a friendly obName obj nm = ob = message sent the user clicks OK on -- "Create Search Index" dialog createIndex -- Prepare index generation -- declare 4sftsSetFile, sftsLogFile, sftsIndexHandle, indexName 4sftsTextFlow, sftsValidObs, sftsExclude, sftsContextList 4sftsTitleLoc, sftsContexts, sftsKeywords, sftsSections 4sftsBooks, sftsVRef, sftsMainBk, sftsHwtags 4booksLeft tbk_bookRef() oldPageRef Y = defaultPage modifyMTB30ini -- error bwill be handled -- rather than ftsSetErrorNotify( FALSE) -- store current setting readerStatusBar status bar oldRSB = TRUE -- initialize -- these used throughout creation process updateStatus "Reading Settings" location titles = ftsGetIniVar("Options","titleLoc", organization untitled sections = NULL -- list includeBooks", contexts , initially -- be CREATE","FIRST_CHAP", -- generate keyword -- lines keywords numLines = isType(DWORD, -- each kwLine = ","kw"&i, -- one global itemNumber(kw,pgKeywords) = 0 = ftsListToTextline( available -- contextLine = defined num = KEYFIELDS", kfNum = kfieldData = KF"&(i+3), kfielddata named CONC_SECTION", build = stripExtension( ns","includedObjects", -- exclusion rules ns","excluded", logFile report errors )&".OUT" Opening [file:"&& existing files moving old ftsRemoveIndex( errorState "Removing Existing 3 Files" Initializing = ftsInitIndex( windowHandle = 0 -- walk asure they -- (stepping backwards so that removing doesn't change numbers 2haven't been Zyet) ftsFileExists( _ ) <= 0 creationLog "***Unable find "&& %modal ) > 0 nextBook ssm = sysSuspendMessages Scanning 7"&& Begin scanning"&& walkAllObjects ( ftsIndexName splitPath( -- Building ftsBuildIndex( complete." Done." -- clean up _, etc. cleanUp -- These two handlers 8specified. -- How routine works: H walks every 8. Since aren't necessarily consecutive, -- checks a reference stored backgrounds array. If added walkObjects be walked. -- What's fuss about recordFields? Hotwords recordfields , which lives on . The returned , however, hotwords. So whenever -- a passed adds found row , like [i][1] [i][2] [i][n] ... JReference 1> ... < -- When comes enumerate living their ZbackID, \backIndex {curPage -- can't be navigated -- skip (ftsIgnore (skipNavigation Excluding"&& -- associated ftsContextValue -- curContext = getContextNum( -- wasn't predefined, issue a warning ftsFindLine( ) = 0 &&"on"&& -- -- pgTitle = getTitle( -- -- kw = -- was kw) = 0 kw&& "on"&& -- ftsAddPage( cleanRef( ,kw,curcontext) Adding -- -- previously -- dimensions( [j][1] -- -- so we don't visit ) + 1 ][1] = -- iterate ,backindex, -- objecttoWalk. -- On entry either a . Note: [][] -- a [][] TextAdded Zstack tlist,objList, rfList recFieldCount {curObj objectToWalk = -- replace obRef = ) > 0 -- {owns other -- curObjType = ) > 0 /should be -- on obNum main count iterating Jcondition below) recfieldCount = 0 ) > 0 located )[n][2] recIndex = 2 3]&&\ correct order additional addObjectText( we're enumerating +2] = \ ) > 0 ) > 0 ) > 0 hwtag = ftsTag ) = 0 known h:"&& ) > 0 {isn't covered above -- cases, indexed. Add continues accumulated sftsTextAdded <> ftsAddSectionsToPage( -- puts statusbar isOpen -- returns a friendly form: obName obj nm = ob = expression textExp retVal = "richText c"comboBox" Fdropdownitems lftsAdditionalText pgRef contextNum = 1 contextName = -- already -- tot he ftsAddContext( -- names t = -- writes a outStr ftsTitleOverride property ;! <> there -- obType = -- titleRef = " -- {exists, -- isObject( -- otherwise -- function = ftsTitleValue() -- -- , instead ) removes $path a pageReference bkName = -- inform occured gracefully errMsg S#"&& k&ftsGetErrorString( _, close viewers $ds, % <> "standard" assosciated xa valid type <> " &) <= 0 hidden <> " tmpObj = ftsExcludeValue -- ignore ' <> () = 0 (:"&& )(&&" ftsAddTextToSection( directly & = "STSPATH" tempDir = ftsDosString(" 2sysToolBookDirectory ftsSetIniVar( ',"TMPDIR", u,"mtb30.ini") .' = "STSPARMS" D',"DFE",1," rty browse -- handles sizing the browser sized -- ignore 'code viewed -- (normally 's seen pRef = currentPage 4stbk_lastWinSize ZINT xpix,ypix ZOBJECT fheader,propFields,propButtons,splitter,\ bScript,bUprops,bDialog syspageunitsperpixel -- optimization: store frequently used {references clientSz = clientSize "propGroup" "propButtonGroup" propFieldBounds = we need zsome -- side }six pixels rightEdge = "labelGroup" combobox "cheader" "obtype" -- more : these same distance -- , but -aren't stretched B"uprops" B"dialog" bscript bdialog -- - 3* has changed: -- radio buttons 2 ottom: radioButtonVPos = - 2* property fields above }- 2 * cache ^, modify them, splitVert = "propValue" "valueLabel" addSysMenuItem itemText,wHandle, asure isn't too large 61440 "must use a lower MF_SEPARATOR = 2048 MF_STRING = 0 X"user" appendMenu( ggetSystemMenu( = "" wflag : note, stored ToolBook.ini pageUnits based -- on . To find out how big -- getSystemMetrics. Refer openWindow Zsm_cxframe,sm_cyframe,sm_cycaption,defaultSize,defaultPosition {winRef 4metric indexes: 32 -- width sizable 33 -- height 4 -- sm_cxscreen 0 -- sm_cyscreen 1 -- 3000,3000 "0,0" (INT) getToolBookIniItem("Browser"," pos = 's on upper- E> getsystemmetrics( splitterPlacement = ",.5) mode = pageUnitsToClient( orders captions extraWidth extraHeight )*2+\ winref -- calculate maximimum maxSize tbk_bookRef()) maximumSize chandling about box: translatewindowmessage windowHandle on 274 WM_SYSCOMMAND ,100 "About Property ...", ,101 placement currentpage "propbuttongroup" closeWindow statusbar setToolBookIniItem(" Mode", Splitter", translated . wParam selected. one we added. hwnd,msg,wparam,lpLow,lpHigh Zinit[] e= 101 tbktoolsdlg( -- stubs prevent navigation -- Folder widget -- This message sent clicked changed Hsetting -- tabMode. Put code handler, -- on tabPressed tabNum -- handles clicking on buttonclick -- test 9was Hchecking "obtype" userProperty -- each named " ", N being tabname = -- Changes which 9folder front. It does Hmoving U"mask" -- Value zbetween 1 tabs navigate value < 1 > tabLimit() "Cannot 9" && v = -- moves visually -- appear See sized below adiagram v + xpix(), -- stores a userproperty myTabMode -- sends notification -- The handlers resizing ,mode. -- -- Used %a constant. Returns -- Note: you wish more , follow procedure: -- Go duplicate one -- Rename that 9appropriately. ( instance would -- be Tab7", thirteenth # be "Tab13"). -- Set its behind function reflect pageUnits given n pixels. n = 1 sysPageUnitsPerPixel * n ypix n n = 1 Qel * n -- returns currently selected -- sets up height units. tabHeight mytabheight handled myTabHeight tabSpace myTabSpace arrangeTabs numTabs sls = valid parameter "Must have )least 1 "Can only 2" && && " -- cache {reference optimization. 9"&i) i <= -- hidden %they've xbeen -- receiving them # are "manual" myNumTabs mynumtabs resized Notice -- methodSent: used differentiate =messages ToolBook explicitly ssm = syssuspendmessages off toolbooks messaging, %we will be changing stuff. Without recursively -- calls itself over -- thing -- has a called -- -- 5,6 _________ 7,8 -- -- 3,4 | | 9,10 -- -- -- -- 1,2 |____________| 11,12 -- -- Here amap -- goal here maintain shape -- . (Otherwise gets stretchy.) Also, -- should be -- -- find how tall supposed -- tabRef = -- tsection makes " corners -- Need be sure -- wide 4doing m"tabHighlight" B"tabLabel" C () editor. -- rectangular -- body b = SuspendMessages sysSuspendMessages = Z = ssm -- -- following condition triggered %a whole -- -- -- , even though their sizes So we must notify -- can themselves. -- -- xarranged -- ref = 9"&i) -- don't bother arranging -- mynumTabs = ssm -- assures aligned spaced evenly. anchor = "tab1" ts = mytabspace bp = where order xpos = bp - b(ts,0) through remaining place -- 9"&i) -- -- now tbit masking others. bchecks x(e.g., just moved tname = " v = above = ssm -- August 10, 1993 -- Joseph Brick -- This message sent clicked changed Hsetting -- tabMode. Put code handler, -- on tabPressed tabNum goPage B"tablabel" currentPage -- handles clicking on buttonclick -- test 9was Hchecking "obtype" userProperty -- each named " ", N being tabname = -- Changes which 9folder front. It does Hmoving U"mask" -- Value zbetween 1 tabs navigate value < 1 > tabLimit() "Cannot 9" && v = -- moves visually -- appear See sized below adiagram v + xpix(), -- stores a userproperty myTabMode -- sends notification -- The handlers resizing ,mode. -- -- Used %a constant. Returns -- Note: you wish more , follow procedure: -- Go duplicate one -- Rename that 9appropriately. ( instance would -- be Tab7", thirteenth # be "Tab13"). -- Set its behind function reflect pageUnits given n pixels. n = 1 sysPageUnitsPerPixel * n ypix n n = 1 Qel * n -- returns currently selected -- sets up height units. tabHeight mytabheight handled myTabHeight tabSpace myTabSpace arrangeTabs numTabs sls = valid parameter "Must have )least 1 "Can only 2" && && " -- cache {reference optimization. 9"&i) i <= -- hidden %they've xbeen -- receiving them # are "manual" myNumTabs mynumtabs resized Notice -- methodSent: used differentiate =messages ToolBook explicitly ssm = syssuspendmessages off toolbooks messaging, %we will be changing stuff. Without recursively -- calls itself over -- thing -- has a called -- -- 5,6 _________ 7,8 -- -- 3,4 | | 9,10 -- -- -- -- 1,2 |____________| 11,12 -- -- Here amap -- goal here maintain shape -- . (Otherwise gets stretchy.) Also, -- should be -- -- find how tall supposed -- tabRef = -- tsection makes " corners -- Need be sure -- wide 4doing m"tabHighlight" B"tabLabel" C () editor. -- rectangular -- body b = SuspendMessages sysSuspendMessages = Z = ssm -- -- following condition triggered %a whole -- -- -- , even though their sizes So we must notify -- can themselves. -- -- xarranged -- ref = 9"&i) -- don't bother arranging -- mynumTabs = ssm -- assures aligned spaced evenly. anchor = "tab1" ts = mytabspace bp = where order xpos = bp - b(ts,0) through remaining place -- 9"&i) -- -- now tbit masking others. bchecks x(e.g., just moved tname = " v = above = ssm initPage valName 4sftsSetFile Zkfields,ktypes, initVal = "[None]" num = ftsGetIniVar("CREATE","KEYFIELDS", xisType(DWORD, kfNum = kfieldData = jTE","KF"&(i+3), kfieldName = kfieldType = typeString = "Date" Integer" 4Real Number" kfieldname &&"("& :&&"("& dropdownitems combobox "choice" comboBox " [newKF = keyEnter buttonClick B"ok" B"help" fillAnimationList newObj ZsettingsTable[][] [dropDownItems ss = = FALSE L = anim_AnimationSettings dimensions( i&CRLF drowDownItems textlineCount( ) > 1 notifyAfter 4s_anim_animationSettings[], s_anim_CurrentObject isOpen combobox " }" <> selectedObject = ~(TAB, ) > 0 ct = 14] > ) - 1 notifyBefore 4s_anim_CurrentObject, s_anim_PathObject ZDDItems odropDownItems isOpen onBackground objList = 0) > 0 currentObject "selectionHandles" currentPage A <> -- 4 tabs should the unique {out sight combobox dropdown -- we need store ID numbers incase }named dsame thing. && QUOTE & TAB& &CRLF && " " && selectChange newObj objRef = fillAnimationList "animations" "selectObject" pageSlider pos 4slider_mode x"on" xpix sysPageUnitsPerPixel sliderMin sliderMax scale sliderBounds nearestPupp( B"thumb" nearestPUPP( pos-x1+w )/(x2-x1+w)+ thumbBounds curPos sliderPos sliderPageSize pos - objectFromPoint( isChild( toggleInvert obuttonPressed buttonClick FALSE toggleObject ls = lockScreen LockScreen oinvertedButton b <> objectInQuestion, parentInQuestion $ <> startSliderMove pos 4s_anim_PathObject, s_anim_CurrentObject, s_anim_dx, s_anim_dy, s_anim_animationSettings[], s_anim_idleAnimations stopAnimation "aborted", "selectionHandles" isObject( vertexPosition(1) 6] = y2), 10]) = 0 offsetPathBy(theVertices "selectObject" compilePath( 9] = 10])/4 - 1 sliderMove pos 10]) > 0 %"0.00" "currentTime" StepNumber = jumpToStep 10], 11], 10], 11], whichStep, compiledPath, totalSteps, startPosition, CelAnimation, StepsPerCel, theTarget q < 0 ls = lockScreen +1)*4-3 +1)*4 updateCel ZCelNumberToShow,CelNumberToHide,CelCount so that 0 shows -- ( 0 corresponds -- calculate fregards setting -- so always starts ) -- Cels -- i.e. n kn = 0 Mwe want --stub keep sysbook looking animations initDialog {mousePos, isShift, isControl 4s_anim_PathObject do_buttonDown /"editorScripts" isObject( do_dragging o<> default do_endDrag do_curveVertice key, do_keyDown I >= S <= keyDownArrow theTarget setCursor (0, 0, 0, 0, 0x0200) 6, 0, 0 -- handlers called manipulate {'s path dialog UI -- vertexPosition verticeNumber newPosition moveVertex ZOBJECT sysPageUnitsPerPixel) -- returns the a given pathObject theVertices ZverticeList verticeCount notifyBefore clipRef <> NULL showWidgetsProps moved adjustControls "mmwidget_controls" sized ~<> AUTHOR mmWidgetSysBook -- HACK: Should use mmYield linkDLL "TB30WIN. mmYieldApp() (preLoadMedia = TRUE) ) <> openClip (autoShowMedia showClip (autoPlayMedia playClip setClipControls notifyAfter (autoCloseMedia ) <> closeClip myClip = ( mmPlayable stageObj = whatStage checkStageSize mmOpen ) <> mmClose pauseClip ) <> mmPause stopClip ) <> mmRewind mmShow seekClip argPos isReady( mmSeek & wait seekClipFromEnd stepClip stepDist stepSize = Q(mmLength / 20) mmPosition mmStep stepClipBack / 20) mmNotify argMedia, argCommand, argResult oldLock = lockScreen enabled = FALSE clipStat = mmStatus "stopped" "paused" "seeking" "playing" "closed" "Unhandled:" && getObjectList( whatClip "playingpausedstopped" stageSizing stretchStage newClip chooseResource( setMySize mediaSizing value () = myStage = mediaSize 1mmVisualSize N160,100 4sftsSetFile, sftsMainBk tabmode "folder" 7 <> NULL updateSettings = keyEnter buttonClick B"ok" B"help" updates the DB match settings file , sftsContexts, sftsKeywords Zkfields,sections,keywords,contexts k" = list books incBooks = ftsGetIniVar("Options","includeBooks", "included `" = ftsListToTextline( excluded excWordFile = CREATE","CWDFILE", ftsFileExists( ?) > 0 i" = num = KEYFIELDS", kfNum = kfieldData = KF"&(i+3), kfielddata selectedtextlines " = 1 dataType = initType "type" named ONC_SECTION", default location titles titleLoc = ns","TitleLoc", K" = TRUE {" = FALSE enabled {reference" = K" = {" = comboBox "obType" = "obName" = continues' textFlow = ns"," xisType(LOGICAL, B"textContinues" = incOptions = " includeObj = ns","includedObjects", = itemNumber( ^) > 0 excOptions = " /,hidden" ns"," opt = ) > 0 numLines = DWORD, kwLine = ","kw"&i, contextLine = flag determines whether has been -- opened newSettings = ns","NewSet", "<> " [addBooks [valCnt [updBooks handler saves current saveSettings sftsHwtags, sftsBooks ktypes, vwrRef = "dialog" tbk_bookRef() ) = TextlineToList( snamed > = ftsTextlineToList( exclusion options ftsSetIniVar(" have added, updateFile -- numKF = tagName = sftsHWtags ?&&"C" -- indicate that these used textlineCount( num+3, fieldName = ,"#"& excess numKW = [currLine lineCnt = 0 currKW E) > 128 ","kw"& ","kw"& numcontext = currcontext ) > 128 should be updated, updateBooks ftsSetPage }based on which 9was pressed tabPressed tabNum "fileTab" = ( "pageTab" = ( "objTab" = ( "hwTab" = ( "kwTab" = ( adjustcontrols ssm = syssuspendmessages e= TRUE buttonSize = 25* syspageunitsperpixel parentBounds = whatStage() myObjs = numberButtons = 0 obj = oldb hasSlider "slider" sliderBounds = 9+ 5 * l- 5 * + 7 * - 7 * sized B"thumb" moved e= FALSE = ssm adjustcontrols ssm = syssuspendmessages e= TRUE buttonSize = 25* syspageunitsperpixel parentBounds = whatStage() myObjs = numberButtons = 0 obj = oldb hasSlider "slider" sliderBounds = 9+ 5 * l- 5 * + 7 * - 7 * sized B"thumb" moved e= FALSE = ssm lastWin() currentPage -- checks the selections checkSelection refresh 4stbk_curOb ZcurrSel -- update state toolbar buttons " " handler. checkingSelection ) <> 1 -- nothing selected, ) = 0 enabled -- {toggles }updates -- "obType" "(No -- more than one . Punt. "propGroup" [display headerType "(Multiple -- . Update browser. updateBrowser -- central place setting , sysvars setProp obj,propname,propval,firstLineOnly ZexecutionBuffer,firstLineSpec = " B"props" 's a 4property | = " && " 's a setSysVar B"uprops" && " " && obj && ss = 1= ss -- test failed: syserrornumber sysE = "Error compiling" part : ")+1 -- sets _. Moved its own so that ^names will xconflict varName,varValue 4" && varname && "= -- returns value sysVarValue 4" && obj. If homebase P, selects vRef = tbk_bookRef() isOpen -- currently browsed "&& "["& P)&"]" -- change radio we're examining ystem "&System Variables" !Properties" "Objec&t -- sysProps/sysVars) showProps showUserProps vref -- displays values. Note. _have -- convoluted fanyone's ZvNames,vValues,vlist,i -- systemVars curProp ss = val = ("@"& G && " " && "" & "propName" "propValue" "" q>") homeBase -- selectedTextLines "propvalue" obref(obj) lists updateHeader Zloc_vNames,loc_vValues,loc_vlist,loc_i -- weed out _used -- declare 4" && -- KLUDGE -- need find array. loc_ss = -- END a widget, "published" -- along fa standard w_propNames obj bookref = != tbk_wid_props p_widget w_propValues {pRef " && f_widget( w_propListText obj ZpropText = tbk_wid_values lst_widget given -- a couple notes on 8beginning f"p_" contain valid each type -- function f"f_" hard coded -- a }. These -- correspond returned H"p_". " hold information on the stored v "p_" -- "f_" functions written ,stbk_propTypes ,propValus Zw_wid we've somehow got invalid isObject( -- what kind {we've obtype = -- widgets tbk_wid_name -- we've " (Widget)" -- we want = f_systemProps( = p_systemProps = lst_systemProps = f_page( = p_page = lst_page = f_background( = p_background = lst_background = f_book( = p_book = lst_book = f_field( = p_field = lst_field = f_recordField( = p_recordField = lst_recordField = f_button( = p_button = lst_button = f_paintObject( = p_paintObject = lst_paintObject picture = f_twoDGraphics( = p_twoDGraphics = lst_twoDGraphics = f_oneDgraphics( [ = p_oneDgraphics = lst_oneDgraphics = f_group( = p_group = lst_group combobox i = f_combobox( = p_combobox = lst_combobox = f_hotword( = p_hotword = lst_hotword = f_oleObject( = p_oleObject = lst_oleObject = f_window( = p_window = lst_window stage = f_stage( = p_stage = lst_stage itemOffset itm, buttonClick 4s_anim_CurrentObject, s_anim_animationSettings[] k1 > 0 newVal = 212]* :8])/ #<= 0 "The frame rate should be changed "so that the will reach point )exactly"\ && 8]&&" f"&OK" "&Keep = "OK" -- verify animations "Variable" -- asure frames per Usegment a whole z& >= 1 lineSegs 1])/2-1) smooth = newRate = be smoother 3&"." f"&OK" = "OK" 12] = close Event handlers 4LockOut, CreditsViewer = targetWindow = = False endAnim 4lastTrans "logo" Main animation AnimateCredits 4creditsviewer,lockout <> True transition "fade "names" midiReady makeTrans hook = hook2 = headhole = cannon = boom = isobject(" rip") ship = "poke" tink = pgSz = cx = pgsz / 2 cy = fx = fx = (fx+1) k5 + 1 fx = 1 < -360 H360,0 H-360,0 rx = slide Sout fx = 2 ),cy-600 hideAnchor + 720) < H180,0 dropAnchor (cx-360),-( < -360 H0,360 H0,-360 spiral speed 200" $= 90 cannonstop = endPos "down" rip = mybounds startPos <= cannonStop tear = fx 0,0,0,0 scrollToNext -- these handlers keep "propname" sync textscrolled adjustscroll adjustScroll pressing delete [a userProperty 4stbk_curOb tl = selectedtextlines tl = 1 propName = B"uprops" x"32000 longer than 32000 2] = -- flag enabling disabling fields" 3] = " 3] = " -- r<> " ecancelled" x"na" starts typing propGroup, where they're supposed tl = ansitoChar( "abcdefghijklmnopqrstuvwxyz_0123456789" fheader handler passed a like following: -- ,< 1>,...,< -- note that < also one finds Freturns itmPos = itemOffset( M) + 1) -- updates combobox/ updateHeader href = tl = tl = 1 curProp displayVal = "" headerType curtype "multiline" writescripts handler the "f_" found . They are hard -- coded speed. It also sets Bp_" "lst_" -- note ; reviewers: -- Once 8ships, no longer needed. writeScripts fn = "tmp.txt" writeLine("-- These were written Hanother .",fn) 8",fn) C",fn) Zt,curOb,curProps,scr,curLists t = "props" textlineCount(t) stepline = -- cleanup executionBuffer = " && " && " (txt)",fn) -1) ",fn) stepLine curObType = returns values . Hard- ",fn) f_"& l && "obj",fn) j = 0 stp1 = "richText" "dropDownItems" q = " "systemProps" ofob = obj)" " && q&& u&& "& B" && j && " " &q&& && " && " V(cnt-1) k,fn) t,fn cleanString s quotes i = 1 ci <= CRLF's CRLFoffset = """ & + & """ *+1) & s & -- update the startup preference asure selected. tbk_linkIniFileFuncs tabmode( folder initpage tbk_bookRef() "drawing" -- converts pageUnits putoInches pu retval = pu/1440 metric *2.54 %"0"&sysdecimal&"000" inchestoPu /2.54 (1440* roundtoNearestN( (1440* sysPageUnitsPerPixel) -- returns multiple n nearest ^ x,n (x/n)*n -- handlers tfields on ftype akey = t = "0123456789" sysDecimal t = "0.00" -- initializes Preferences dialog initpage section = "Startup selectedtextlines puToInches( "pageHeight" "pageWidth" getToolBookIniItem( B"showRulers" 8","startupReaderRightClick"," B"readerRightClick" B"recordHistory" sBooks = sBooksWithPath = bookCount = -- split their paths bookcount fileAndDir( "metric" "units" "cm." updatePath initEnabled handler removes beginning 9delimiter. This way -- we can store information invisibly Jsame fn = ](fn) slashLoc = 0 U(fn) Vslashloc+1 U(fn) fn & -- returns made pathinfo txt,tabloc filename fileinfo -- updates toolbook.ini updateIni b= inchesToPu( setToolBookIniItem( sbt = t = bookname = U(t) -- initializes Preferences dialog initpage section = "Startup getToolBookIniItem( t","System") u","10") sfsi v","Bold") sfst }","0,0,0") puToInches( "firstLine" "fromLeft" "fromRight" combobox "alignment" ",1) = "Single" = "1 1/2" = "Double" "metric" "units" "cm." lineSpacing" ttype "tabbuttons" ",720)) -- updates toolbook.ini updateIni setToolBookIniItem( Ztlist inchesToPu( "1 1/2" = 1.5 "tabButtons" -- diplays the combobox, depending on type property -- that displayed. headertype value cref = U "cheader" fref = "textheader" "list" "boolean" enabled B"dialog" "color" "font" "multiLine" "custom" -- puts selected propGroup either Zdlist maxlines = 10 "fheader" -- 's a stuff, so box. temp = (Value) lc = scrollable 6- 1 > lc linecount b(1,lc) dropdownitems - -- Sent Hstandard dialog handler, initializes the -- value[], required xused initDlg 4stbk_searchString,stbk_replaceString "findString" bref = B"ok" "Start" enabled -- sent user presses " 4stbk_lpMsg,stbk_vRef 4stbk_foundList,stbk_searchOnly, ,stbk_asWord,stbk_promptChange,stbk_firstFind,\ stbk_canceled,stbk_searchRange,stbk_cnt statusbar -- link needed DLL functions tbk_linkMemFuncs tbk_linkMessageFuncs _. Most these are replaceScript below sMode = searchmode throughout handlers B"matchword" combobox range -- allocate a block memory will be peek message -- has pressed stop running. = tbk_getWinPointer(32) -- change "Stop" B"ok" "findstring" -- "Scripts "Page/ 8scripts" walkallobjects {hierarchy" walkHierarchy statusBar -- still up, focuswindow "Could " && & "." searchOb = nameOffset = ~("(", '-1) editScript 1] = 2] = -- bring up chooser tbkToolsDlg( "foundScripts" tbk_bookRef(),"Found close tbk_freeWinPointer( B"ok" Close iterates -- starting selected curSel = notifyObs notifyObjects curSysBook = -- These two 8specified. -- How routine works: H walkAllObjects ' walks every 8. Since aren't necessarily consecutive, -- checks a reference each been stored backgrounds array. If added walkObjects be walked. -- What's fuss about recordFields? Hotwords recordfields , which lives on . The list returned , however, does xinclude hotwords. So whenever -- a passed adds fone row , like [i][1] [i][2] [i][n] ... JReference 1> ... < -- When comes enumerate living their ZbackID, \backIndex {curPage -- just -- -- we have previously -- dimensions( -- j -- -- so we don't visit ) + 1 -- -- objecttoWalk. -- On entry either a Zstack tlist,objList {curObj curObjType = objectToWalk windows = getObjectList( ) > 0 -- updateStatus involves obRef tried process 20th k20 = 0 stbk_SearchOnly checkForPendingStuff( focusWindow) itemOffset( B"ok" ) > 0 ) > 0 ) > 0 curScript = curScriptChanged = runningtotal = 1 totalChars = searchLen = replaceLen = Tthat serve gdelimiters: wordDelimit = " " & k& "-+*/<>,()[];^=&.?':" & -- remaining chunk, 's got txt = curOffset = -- startPos = ( endPos = ( 's a g- 1) s+ 1 -- changing Bcontaining display tstartPos = seekEnd = tEndPos = seekend-2+ initialization 1] = tendPos 2] = - tstartpos+1 3] = 2] + 4] = 5] = 6] = promptValue = "changePrompt" Replace?", prompting says so "Yes -- insert "yes" -- ss = se = "Saving " && " && && "." && f"OK" "Cancel 1= ss -- puts {being examined buttonRef = B"ok" xitem,xlist Hfolder widget tabPressed tabNum -- sets "instructions" "replacewith" what current searchMode "replaceWith" -- brings up editor, -- enters searched- , hits obj, searchText X"tb30win.dll" sendkeys( }",0) keyenter returns a }clicked on keystrokes -- It clears them queue -- Parameters: a locked 32 bytes -- viewerRef whose \you want . If g= targetWindow wm_lButtonDown = 0x0201 wm_keyDown = 0x0100 pm_Remove = 1 -- mouse clicks ctbk_PeekMessage( windowHandle ,pm_remove) <> 0 lparam = -- extract high x = k65536 y = y65536 u = clienttoPageUnits( objectFromPoint( -- ctbk_peekMessage( wparam = foundlist friendly nm = " ("& &")" buttonClick dataType cbox = comboBox "formats" >= "U" enabled cBox = notifybefore initType dateFormats = "mm:dd:[yy]yy" & "dd:mm:[yy]yy" & "[yy]yy:mm:dd" = "U" B"U" dropDownItems combobox " = "D" B"U" = "S" B"U" &"/" "/R/I/T/C/" = "R" buttonClick Zkfields cBox = combobox "Choice" & = dropdownitems numLines = valName = tagEntry("New Hotword Tag","Select :","","") c"," R) > 1 "Tags may xcontain commas multiple dataType = "value entry" tbk_bookRef() typeString = "Date" Integer" 6Real Number" currLine = 1 "A Tag that palready exists." newVal = &&"("& newKF buttonClick 4sftsTitleLoc ZpgList,pgNums,pgText tl = selectedTextlines "keywords" ftsSetPage() kw = P = "< Keyword"&&"'"&kw&"'"&&" xcurrently used. >" comboBox "obType" <> NULL "obName" <> openWaitDlg "Building list , please wait..." incBooks = ftsTextlineToList( "included books") hitCount = 0 bkRef = pgCount = pgRef = pgKeywords = ftsKeywords itemNumber(kw, ,) > 0 vwrRef = "dialog" tbk_bookRef() *"Pages Using '"&kw&"'" currentpage "where = getTitle( = niceRef( reference" closeWaitDlg %modal isOpen notifybefore oenabled = x( selectedtextlines ,sftsSetFile Ztitle ftsTitleOverride titleLoc = obRef = titleRef = " isObject( = ftsTitleValue bkName = splitPath( buttonClick Zkfields "tags" numLines = valName = tagEntry("New Hotword Tag","Enter :","","") c"," Q) > 1 "Tags may xcontain commas multiple currLine = 1 that palready exists." dataType = "value entry" tbk_bookRef() typeString = "Date" Integer" 6Real Number" selectedtextlines initType {loc, isShift, isControl 4s_anim_lastLoc, s_anim_sizing = FALSE 4s_anim_CurrentObject, ZdxResize, dyResize = TRUE "selectionHandles" ls = lockScreen >= "NW_handle" >= "NE_handle" >= "SW_handle" >= "SE_handle" >= "N_handle" >= "S_handle" oldName = switchRect = crossPartner O EWPartner NSPartner = loc e= ls , s_anim_dx, s_anim_dy, t, s_anim_selectedVertex, nim_animationSettings[] showHandles t DIV 2 j = 1 s_anim_animationSettings[15] = 6] = do_enddrag /"editorScripts" ~("NE_", ~("NW_", ~("SE_", ~("SW_", ~("E_", ~("W_", ~("S", ~("N", objBounds = xMidPt = yMidPt = xHandleMidPt = sysPageUnitsPerPixel * 3 yHandleMidPt = +el * 3 spinUp 4s_anim_animationSettings[] "integer" spinDown isType("REAL", sliderMax "BottomBar" = --This handler translates the messages editor openWindow translateWindowMessage oclienthandle on 0x0020 setCursor on 0x0201 WM_LBUTTONDOWN /"editorScripts" "bottomBar" buttonClick shown setSize closeWindow 4s_anim_idleAnimations, s_anim_selectedTool, s_anim_CurrentObject 4s_anim_PathObject, s_anim_curvedVertices, s_anim_selectedVertex 4s_anim_dragging, s_anim_dx, s_anim_dy, s_anim_segLengthList, s_anim_pathdx, s_anim_pathdy 4s_anim_Objectdx, s_anim_objectdy, s_anim_lastLoc 4s_anim_animationSettings sets cursor either ,mode arrow cross hairs --depending on value sysTool. It also updates ToolPalette has been toggled hWnd, msg, hWndmsg, hitTest, mouseMessage = 0x0200 theTarget isObject( modeCursor( ocurrentPage) isOpen statusBar ) = "down" ) = " ) = " "vertex" 39 -- "lineVertex" "selectionHandles" "N_handle" "s_anim_handle" "NE_handle" "SW_handle" "SE_handle" "NW_handle" pathObjectID <> initDialog ) = 1 selectedObject = onBackground && QUOTE & &TAB& combobox " "SelectObject" selectChange "selectObject" --automatically there only 1 textlineCount(dropDownItems animations" s) <= 2 B"OK" %modal updateSettings 4s_anim_animationSettings[], s_anim_currentAnimation, s_anim_CurrentObject enabled "integer" "duration" "steps" B"ShowAllSteps" B"FixedPath" 13] = FALSE) B"forever" "reps" t = " B"CelAnimation" "StepsPerCel" buttonClick "stepsPerCel" keyEnter B"close" isOpen --stub keep sysbook looking animations -- These scripts the compiling animation paths -- -- compiles specified Cuser a compiled = that includes -- a point every }duration one repetition compilePath animationSettings[] ZboundsPath,newPath,newPoint,newLength,loopedPath,i,StepNumber,currentOffset ZcurrentVertex,currentLineLength,currentIncrementLength ZtotalSteps,segLengthList,theLineVertices currentDistanceOnLine 12] * possible closed (e.g. are touching) , don't want (because 'll be same -- so we'll throw out 1] - 1])<= sysPageUnitsPerPixel*2 1] - 1])<= =el*2 "Constant" -- calculate length 1])-3 hypotenuseFromVertices( -- correct lengths curved segments ci <= -- what percentage overall lenght distance between tempPercent -- each curveLength( (i*2)-1 (i*2)+4 -- firstPoint already "0,0," StepsPerSegment ci <= -- "Variable" timedCurveVertices( i*2-1 i*2+4 *2)&"," xreturned Hfunction since always within motherwise skip rounding error >= 0 points curveVertices( i*2-1 i*2+4 gth)&"," -- lineVertices( i*2-1 i*2+2 )&"," >= 0 i*2-1 i*2+2 comma s (see comment 4above = -- y value U -- x -- should be (implying a -- so leave --we have positions , now athem xStart = yStart = xInc = (( 16] - ) DIV 2 yInc = (( 16] - j = 0 ) > 0 x - ( {* j),y - ( `* j),x + * j),y + * j)&"," default on a mstarting vertice )subsequent increments thereafter screen units. Requires 3 theVertices,offsetDistance,incrementDistance ZxOld,yOld,x,y,t,oldDistance, ZpointList,nextPointToFind ZAx,Ay,Bx,Bye,Cx,Cy TwoBx Bx * 2 TwoBye -- t can -- 0 beginning -- 1 -- special Mso no ?/0 condition happens cstatement below Ax,Ay&"," theDistance incrementSquared = tTwo = 2 * x = ( Ax - ( %* (Ax - Bx)) + ( p* (Ax - + Cx)) ) y = ( Ay - ( ]* (Ay - Bye)) + ( * (Ay - + Cy)) ) -- find J(old x,y) -- ) >= 0 -- desired/ -- i.e. + (x- + (y- )&"," pointlist -- gets arranged feven along Zx,y,t,returnVertices, -- t -- 0 -- 1 ZAx,Ay,Bx, Bx * 2 >= 1 x = ( Ax - ( * (Ax - Bx)) + ( * (Ax - + Cx)) ) y = ( Ay - ( * (Ay - * (Ay - + Cy)) ) on a verticeList, Za,b,xRate,yRate,c, redundant -- but I'm xadding more confusing parameters (a,b) travel y directions traveled iterations given passed &"," ZAx,Ay,Bx, 2 * Bx 2 * Bye will split o 60 -- t -- 0 -- 1 x = ( Ax - ( * (Ax - Bx)) + ( * (Ax - + Cx)) ) y = ( Ay - ( * (Ay - * (Ay - + Cy)) ) pathLength (seglengthlist)) on a Ubased on pntFromDistanceOnLine Zs_anim_dx,s_anim_dy,c, buttonClick 4s_anim_PathObject, s_anim_CurrentObject 4s_anim_animationSettings[], s_anim_animationCache[][], s_anim_idleAnimations "selectionHandles" anything already being animated on Fstop p) - 1 stopAnimation "aborted" isObject( startAnimTimer he[1][7] = times through path he[1][8] = 8] -- 10]) = 0 vertexPosition(1) 6] = y2), offsetPathBy(theVertices "selectObject" 10] = compilePath( 9] = ( 10]) / 4) - 1 he[1][6] = he[1][10] = he[1][11] = he[1][12] = he[1][9] = 9] --Total Steps he[1][2] = 0 --CurrentStep he[1][3] = --Notify he[1][4] = 4] --Use Cel he[1][5] = 5] --Force -- the starting point lockScreen he[1][6] he[1][4] FALSE he[1][1] = a_timeGetTime() --StartTime doneAnimatingNotify s_anim_selectedVertex, s_anim_dx, s_anim_dy, ls = newVertice r= -1 error sizeTarget /"editorScripts" moveTarget stopAnimTimer = keyEnter buttonClick B"OK" B"Cancel" editPath theTarget, whichAnimation 4s_anim_CurrentObject, s_anim_selectedVertex,s_anim_dx,s_anim_dy,s_anim_PathObject, s_anim_animationSettings[] reset % = objectAnimation( dimensions( R) = 0 createPath ct = sliderMax "BottomBar" sliderPos -- difference between startPos -- ~path fhandles editing keep reference showPath(offsetPathBy( vertexPosition( showHandles "selectionHandles" updateSettings -- forces Uends ~, they don't always grouped ex, s_anim_CurvedVertices, sls = = TRUE "constant" FALSE (2880 + By("0,0,2880,0", ),",") + 2880), By("0,0,-2880,0", ),",") - 2880), BLACK "settings" = sls savePath 4s_anim_sourcePage, ssm = sysSuspendMessages -- edited ls = LockScreen lockScreen sc = theVertices 15] DIV 2), compilePath( 10]) 4 - 1 t = " sourceObject = : t && " " && b t && " " && { t = t &&" anim_startPosition(1) anim_startSize(1) t&& QUOTE & "The has been saved 14]&&" {." -- To play specify"&& 14]&&" Z animationNumber parameter x playAnimation message." = ssm -- used display angled/curved fellipses over -- also displays curves curvedVertices exist -- returns pathObject ( }created) so can be referred -- lines are named "1","2","3", etc. vertice fall on -- ;"3", -- O"3", thePath, 4s_anim_segLengthList ZlineList,verticeList,curveList,i,animationString,verticeCount ZsavedStates sysLockscreen -- i incremented point1 i = 2 ) > 0 point2 drawLine( ), i-1) /"editorScripts" drawCurve(previousPoint, , i-1) drawHandle( , i-1, & "," , i-1, elements hypotenuseFromVertices( /"compiler" passed --stub sysbook looking animations initDialog {mousePos, isShift, isControl 4s_anim_PathObject do_buttonDown /"editorScripts" isObject( do_dragging o<> default do_endDrag do_curveVertice key, do_keyDown I >= S <= keyDownArrow theTarget setCursor (0, 0, 0, 0, 0x0200) 6, 0, 0 -- handlers called manipulate {'s path dialog UI -- vertexPosition verticeNumber newPosition moveVertex ZOBJECT sysPageUnitsPerPixel) -- returns the a given pathObject theVertices ZverticeList verticeCount initPage curObj 4sftsSetFile 4sftsSections ZinitVal secName = = "[None]" ; = ftsGetIniVar("CREATE","CONC_SECTION", itemNumber( y) > 0 = ftsListToTextline( dropdownitems combobox "choice" comboBox " B"exclude" = (ftsExclude = TRUE) objNm = <> NULL [newSec = keyEnter buttonClick B"ok" B"help" -- puts the -on-applications specified ini file /listbox initDlg X"tb30DOS.dll" fileExists( -- extInfo[n][1] holds title o made filename, helpText appList ZappsTxt numApps = dimensions( there helptext beyond edge i][1]& i][2] fref = selectedTextLines buttonclick updates icon image -- shows another imports hasn't displayed already. showIcon bookname buttonRef = B"iconDisplay" -- store reference thisBook = tbk_bookRef() xisObject(" 8" && -- user normalGraphic "exe "default -- need a unique resource, which limited -- 32 ) <= 32 shortName = shortname = nameFromPath( -- we've imported " && " && -- newIcon = -- has no special newResource = resourceList( runApp appRef tabloc = appStuff = VtabLoc + 1 appName = 8" && & appname & fileIsThere = ( D)=1) "Could xfind 8" && upperCase( ~) & "." r= "File xfound." cleanup close ss = -- 8, but 's a sysToolBookDirectory & "mtb30.exe" && old icons lst = curIcon iconName = itemoffset( ,Property browser, ,wait,info")=0 -- pulls a path fullName slash = "\" fullname curChar = Vloc+1 -- load array, described above ][] tbk_linkIniFileFuncs linkDLL "KERNEL" WORD tbk_GlobalAlloc= ,DWORD) "Free=GlobalFree( 9Handle=GlobalHandle(INT) POINTER tbk_GlobalLock= vUnlock=GlobalUnlock( ? tbk_GetIniInfo=GetPrivateProfileString(STRING, Add on Tools section toolbook.ini pMem = tbk_getWinPointer(4096) G",NULL,"", /,4096,iniFile()) index = 0 extinfo[i][1]= ) + 1) tbk_freeWinPointer( u,"", ,4096, i][2] = keyEnter itemOffset itm, notifyBefore lastTickCount "mmGetTickCount" dllFunctions("USER.EXE") function myParent = sliderUpdate !TRUE DWORD = getTickCount () whatTick = + 500 myClip = clipRef <> NULL status = mmStatus "playing" mmTF = mmTimeFormat pmilliseconds pos = mmPosition len = mmLength setPos B"thumb" "paused" noop() "stopped" "closed" s_tmp_bnds = s_tmp_wid1 = ( s_tmp_wid2 = ( ) = down newX = newY = updateMedia b(0,( 6frame myStage = whatStage() newPos = a*len) seekClip notifyBefore lastTickCount "mmGetTickCount" dllFunctions("USER.EXE") function myParent = sliderUpdate !TRUE DWORD = getTickCount () whatTick = + 500 myClip = clipRef <> NULL status = mmStatus "playing" mmTF = mmTimeFormat pmilliseconds pos = mmPosition len = mmLength setPos B"thumb" "paused" noop() "stopped" "closed" s_tmp_bnds = s_tmp_wid1 = ( s_tmp_wid2 = ( ) = down newX = newY = updateMedia b(0,( 6frame myStage = whatStage() newPos = a*len) seekClip notifyBefore lastTickCount "mmGetTickCount" dllFunctions("USER.EXE") function myParent = sliderUpdate !TRUE DWORD = getTickCount () whatTick = + 500 myClip = clipRef <> NULL status = mmStatus "playing" mmTF = mmTimeFormat pmilliseconds pos = mmPosition len = mmLength setPos B"thumb" "paused" noop() "stopped" "closed" s_tmp_bnds = s_tmp_wid1 = ( s_tmp_wid2 = ( ) = down newX = newY = updateMedia b(0,( 6frame myStage = whatStage() newPos = a*len) seekClip buttonclick myParent = myViewer = shownBy whatStage = currentStage whatWin = currentWin obj = currentObj windowRefFromHandle( clipRef mediaSizing VmyMode "stageSizing" preLoadMedia hecked autoPlayMedia autoShowMedia autoCloseMedia sliderUpdate openClip close buttonClick clipRef <> NULL status = mmStatus "playing" stopClip playClip notifyBefore showWidgetsProps ~<> AUTHOR mmWidgetSysBook -- HACK: Should use mmYield linkDLL "TB30WIN. mmYieldApp() (preLoadMedia = TRUE) ) <> openClip (autoShowMedia showClip (autoPlayMedia notifyAfter (autoCloseMedia ) <> closeClip myClip = ( mmPlayable mmOpen ) <> mmClose pauseClip ) <> mmPause ) <> mmRewind mmShow seekClip argPos isReady( mmSeek & wait seekClipFromEnd stepClip stepDist stepSize = Q(mmLength / 20) mmPosition mmStep stepClipBack / 20) whatClip "playingpausedstopped" FALSE newClip chooseResource( setMySize mediaSizing value stageSizing = stretchStage mediaSize = mmVisualSize = 160,100 bookref = tbk_bookRef() 4stbk_oldCursor = cursor "resize" section code calls GDI ~the splitter user drags ZstartPos,endPos,sm_swapButton = 23 tbk_linkDrawFuncs a device context aa pen hDC = tbk_getDC(ClientHandle hPen = tbk_createPen(0,2,0) J, storing selected hOldObject = tbk_selectobject( drawing mode R2_NOTXORPEN, _old oldROP2 = tbk_setROP2( gRef = "propGroup" bpn = "propName" bpv = "propValue" leftbound = E+ 180 rightBound = E- 360 getsystemmetrics( has swapped mouse buttons. leftMouseButton = oldP <> -- erase drawLine hDC, ,leftBound), -- oldp = -- -- fields x = sysPageUnitsPerPixel "nameLabel" "valueLabel" -- delete pen, release DC tbk_deleteObject( tbk_releaseDC(clientHandle e,hDC) -- draws a specified DC fromPoint = PageUnitstoClient( toPoint = tbk_moveto( tbk_lineto( placement b = "propgroup" myX = ,.01),.99) pref = b = ls = sized ssm = syssuspendmessages oldb moved adjustcontrols e= TRUE myObjs = parentbounds = whatStage() syspageunitsperpixel objRef = e= FALSE = ssm adjustcontrols ssm = syssuspendmessages e= TRUE buttonSize = 25* syspageunitsperpixel parentBounds = whatStage() myObjs = numberButtons = 0 obj = oldb hasSlider "slider" sliderBounds = 9+ 5 * l- 5 * "sliderline" + 7 * - 7 * sized B"thumb" moved e= FALSE = ssm dropAnchor anchor = ship = chain = chainStart = 9+360, H+1260 i+1080 chainEnd = H180,0 H0,120 hideAnchor openWindow 4CreditsViewer, dlgViewer X"User" gSetTimer( KillTimer( gGetActiveWindow() ] = getActiveWindow() translateWindowMessage on 0x113 skipDlgAnim X"KERNEL" WORD getSystemDirectory (POINTER, %GlobalAlloc ( 6,DWORD) ( GlobalLock ( X GlobalUnlock ( o GlobalFree ( linkDLL X"mmsystem.dll" midiOutOpen ( MidiOutShortMsg ( MidiOutReset ( MidiOutClose ( MidiOutGetNumDevs () MidiOutGetDevCaps ( --If we were unable a timer Fclose the st = k32768) creditsViewer = targetWindow closeWindow endAnim closeMidi untranslateWindowMessage 0 -- stub prevent messages going dialog whatClip "playingpausedstopped" FALSE newClip chooseResource( setMySize mediaSizing value stageSizing = stretchStage mediaSize = mmVisualSize = 160,100 bookref = tbk_bookRef() &Create Hyperlink Hotword... Edits a scriptless hyperlink button tbk_startPref Distributes selected objects based on space between the two left-most objects. indexing tbk_centerBoth &Object Settings... IndexSettings Media HotwordSettings &Build Index... EditHyperlinkHotword &Grow to Largest mediaPackager &Vertically Creates or edits a hotword tag FullTextSearch KeywordSearch EditHyperlinkButton ObjectSettings Runs application specified in mtb30.ini file. &Import Text... &Export Text... &Keyword Search... Shrin&k to Smallest CreateHyperlinkHotword Creates or modifies path animations. mm_WidgetProps &Hotword Settings... &Page Settings... hyperLinking tbk_Tools BuildIndex tbk_importText Sets page options for full-text searching AddHyperlinkButton Puts uniform spacing between the selected objects. Between &top and Bottom Inserts text or rich text from a file into a field or recordField. Me&dia mm_MediaWidgets Scriptless Hyperlinking Tools tbk_TabOrder &Both Ways Distributes selected objects based on space between the two upper-most objects. tbk_tools tbk_spreadvert Add &3D Style... Sets options for building a full-text search index Adds a scriptless hyperlink button Widget &Properties... Perform a full-text search Media Pac&kager... Full Text &Search... Adds or modifies 3D style of rectangles and fields Path Ani&mation... spread &Edit Hyperlink Button... Viewer/editor for properties and userProperties. PageSettings Sets reader level options for full-text searching Si&ze center tbk_AddOnApps PathAnimation Set &Tab Order... tbk_grow Builds a full-text search index Performs search and replace on all scripts in the book. tbk_3D Startup &Preferences... Packages clip media files. &Reader Level Settings... Exports text or rich text from a field or recordField to a file. &Find/Replace... &Center tbk_shrink Perform a keyword search tbk_spreadhorz Property Bro&wser Creates a scriptless hyperlink hotword Adds Media Widgets to the current page. Edits a scriptless hyperlink hotword &Index Settings... Set values for system variables on startup. &Hyperlinks &Applications... E&dit Hyperlink Hotword... Makes selected objects a uniform size Tools for working with Media Widgets tbk_centerHorz &Spread Between &Sides mm_media Centers the selected object(s) Sets tabbing order of selected objects by position tbk_exportText Media &Widgets customEdit &Add Hyperlink Button... ReaderLevelSettings Edits the properties of Media Widgets. Sets indexing options for the selected object tbk_replaceScripts tbk_centerVert &Horizontally loadMenus .&, " You must first select two or more items. sortbyposition spread objList sortbysize smallest You must first select 2 or more objects shrinkgrow minlayer lowestlayer newpos curob objList You must first select an object. horz,both vert,both bkSize center ,%H.% curOb stwoDquicksort sortbyposition ,%H.% curOb stwoDquicksort sortbysize stbk_noSwap |CtwoDquicksrt twoDquicksort stbk_noSwap |CtwoDquicksrt twoDquicksrt requestArray ,%H.% objList group bottomLine topline rectangle ThreeDeeRect curObj paintObject threeDeeRect field combobox curObjType topLine bottomline threeDeeRect ,%H.% rectangle,field,recordfield threeDeeRect Group topcolor objList group bottomLine topline rectangle ThreeDeeRect curObj topLine sculpted field rectangle,scrolling You must first select a rectangle or field curObjType bottomColor bottomline xThreeDeeRect saveAsDlg `/Ng SaveAsDlg Export Text tb30DLG.DLL Text file (*.txt),*.txt,Rich Text (*.rtf),*.rtf exportText V, #? .&+ +E Cancel tb30dos.dll ; cannot exceed tb30dlg.dll fileSize Import Text Warning: this will replace the current contents of your field. openFileDlg oldCursor OpenFileDlg getFileSize Rich Text Files (*.rtf),*.rtf,Text Files(*.txt),*.txt,All Files(*.*),*.* is too large to import. File size is {\rtf getFileSize importText sysHistoryRecord sysTabSpacing sysFillColor ttbk_linkIniFileFuncs sysAlignment sysPolygonShape solidFill sysFontFace false author 6getToolBookIniItem System sysCentered sysLineSpacing sysGridSnap sysRuler 0,100,0 sysStrokeColor 0,0,0 sysTabType sysPattern sysIndents section sysFontStyle 6gettoolBookIniItem sysHotwordsShown sysGridSpacing Startup Preferences sysLineStyle sysFontSize sysGrid setStartup System variables props obRef 9a_timeGetTime s_start startTime 9a_timeGetTime s_start endTime tbk_bookRef .&, " Ytbk_GlobalLock Failed allocating memory. memFlag retval tbk_GlobalAlloc tbk_getWinPointer tbk_GlobalUnlock tbk_GlobalHandle Ttbk_GlobalFree tbk_freeWinPointer 8initDlg false Can't nest more than 3 dialogs! sEreturnString dialog rEreturnString window cancelled tbkToolsDlg initDlg shortFileName ,%H.% HshortFileName testName sysBookLoc mtb30.ini toolbook.ini iniFile initLinks ftsScripts enterApplication sftsSetFile leaveBook ftsSbk ftsScripts ftsAddLink AddHyperlinkButton GftsCreateLink ftsScripts CreateHyperlinkHotword ftsScripts ftsEditLink EditHyperlinkButton WftsModifyLink ftsScripts EditHyperlinkHotword ftsGetWinPointer ftsScripts ftsGetWinPointer ftsFreeWinPointer ftsScripts ftsFreeWinPointer textEntry ftsScripts textEntry eztagEntry ftsScripts tagEntry ftsScripts multiEntry multiEntry itemNumber ftsScripts itemNumber getSetFile ftsScripts getSetFile stripExtension ftsScripts stripExtension ftsScripts splitPath splitPath writeDefaultSST ftsScripts writeDefaultSST ftsScripts ktftsCreateIndex BuildIndex uftsSearchIndex ftsScripts FullTextSearch ftsScripts ftsKwSearch KeywordSearch ftsScripts ftsIndexSettings IndexSettings ftsScripts ftsReaderSettings ReaderLevelSettings ftsScripts ftsPageSettings PageSettings ftsHWSet ftsScripts HotwordSettings *%ftsObjectSet ftsScripts ObjectSettings openWaitDlg ftsScripts openWaitDlg closeWaitDlg ftsScripts closeWaitDlg ]ftsInsertLine ftsScripts ftsInsertLine XftsRemoveLine ftsScripts ftsRemoveLine ftsFindLine ftsScripts ftsFindLine callWinHelp ftsScripts callWinHelp .&+ +E .&+ +E ,%H.% slestyle s_anim_sourcePage objList slesize button s_anim_idleAnimations field newPage ZstopAnimation stage aborted by edit SelectionHandles field,recordField No objects to animate. You must draw some objects first. newBackground solidHead PathAnimation Author s_anim_idleAnimations Canim_StartPosition anim_animationSettings Canim_StartPosition Canim_startPosition anim_animationSettings moved Animations will not play becuase mmSYSTEM.DLL did not link properly mmSystem.dll timeGetTime a_timeGetTime setUpDlls ,%H.% ,%H.% 1+U!8 ,%H.% ,%H.% s_anim_animationCache }gyieldApp ZstopAnimation s_anim_idleAnimations }playStep objectAnimation Reset by play command YdoneAnimatingNotify theTarget 9a_timeGetTime _stopAnimTimer startAnimTimer aborted by the user playAnimation 1, "V s_anim_animationCache _stopAnimTimer s_anim_idleAnimations YdoneAnimatingNotify notifyObj stopAnimation 1+U!8 Author objectAnimation updateCel jumpToStep whichStep Author objectAnimation updateCel jumpToPercent s_anim_animationCache successful ZstopAnimation 9a_timeGetTime updateCel playStep .&, " .&, " .&, " 1+U!! 1+U!8 updateCel doneAnimatingNotify jumpToStep currentAnimation currentObject restoreAnimation .&+ +E ,%H.% s_anim_animationCache _stopAnimTimer s_anim_idleAnimations ZstopAnimation restoreAnimation aborted by the user default closeAllAnimations anim_animationSettings objectAnimation anim_animationSettings anim_animationSettings objectAnimation 1, "V s_anim_idleAnimations animationCacheEntry s_anim_animationCache ULanimationCacheEntry anim_Offset s_anim_animationCache ULanimationCacheEntry anim_Offset s_anim_animationCache ULanimationCacheEntry anim_CurrentStep s_anim_animationCache ULanimationCacheEntry anim_CurrentStep s_anim_animationCache objectAnimation ULanimationCacheEntry whichAnimation anim_NumRepetitions s_anim_animationCache objectAnimation ULanimationCacheEntry whichAnimation objectAnimation anim_NumRepetitions s_anim_animationCache objectAnimation ULanimationCacheEntry whichAnimation anim_CelAnimation s_anim_animationCache objectAnimation ULanimationCacheEntry whichAnimation objectAnimation anim_CelAnimation s_anim_animationCache objectAnimation ULanimationCacheEntry anim_ShowAllSteps s_anim_animationCache objectAnimation ULanimationCacheEntry objectAnimation anim_ShowAllSteps s_anim_animationCache objectAnimation ULanimationCacheEntry anim_Duration s_anim_animationCache objectAnimation ULanimationCacheEntry objectAnimation anim_Duration s_anim_animationCache objectAnimation ULanimationCacheEntry anim_NumSteps s_anim_animationCache objectAnimation ULanimationCacheEntry objectAnimation anim_NumSteps s_anim_animationCache objectAnimation ULanimationCacheEntry anim_StepsPerCell s_anim_animationCache objectAnimation ULanimationCacheEntry objectAnimation anim_StepsPerCell objectAnimation anim_StartPosition objectAnimation objectAnimation anim_StartPosition objectAnimation anim_StartSize objectAnimation anim_EndSize s_anim_animationCache ULanimationCacheEntry anim_StartTime s_anim_animationCache ULanimationCacheEntry 9a_timeGetTime anim_elapsedTime 9a_timeGetTime anim_currentTime ,%H.% ,%H.% s_anim_animationCache ZstopAnimation s_anim_idleAnimations whatAnim }playStep _stopAnimTimer aborted by the user updateAnimations updateAnimations animTimerID animTimer zIanim_setTimer Could not setup animation, no animations will play. animTimer animTimer SetTimer anim_setTimer ,&T_^ KillTimer anim_killTimer closeAllAnimations animTimerID startAnimTimer Rlanim_killTimer animTimer animTimerID stopAnimTimer mm_mediaWidgets whatWin mm_mediaWidgets showWidgetsProps whatWin mm_WidgetProps myWin autoPlayMedia myStage preloadMedia kautoCloseMedia stageSizing sliderUpdate preloadMedia hasSlider autoCloseMedia kQautoShowMedia sliderUpdate =+currentStage myPage chooseClip stage HautoPlayMedia mm_MediaDialog currentWin currentObj mm_WidgetProps ,3clipRef autoShowMedia showWidgetsProps thumbwidth labelWidth sliderMin sliderPos LnumTics W\adjustNumbers thumbWidth thumb LnumTics sized sliderMove sliderMax sliderMin mysliderPos sliderMax sliderBounds sliderMin nearestPupp thumb nearestPUPP sliderPos sliderMax labelWidth curfield sliderMin DxCenter LnumTics adjustNumbers xCenter mySliderMax sliderMin W\adjustNumbers is invalid. sliderMin sliderMax sliderMax sliderMax mySliderMin W\adjustNumbers is invalid. sliderMin ,%H.% myTallTicSpacing W\adjustNumbers tallTicSpacing curLine sliderMax sliderMin thumb sliderMax sliderBounds W\adjustNumbers sliderMin numTics must be a value between 1 and 50. myNumTics nearestPupp nearestPUPP leftMost numTics myTallTicSpacing tallTicSpacing mySliderMin sliderMin myNumTics numTics mySliderMax sliderMax sliderMax sliderMin thumb sliderMax sliderBounds sliderMin nearestPupp nearestPUPP sliderPos startSliderMove sliderMove endSliderMove nearestPUPP getsystemmetrics enterpage getsystemmetrics primaryMouseButton .&, #? SelectObject page,background Vertex |.verticeCount aborted WM_LBUTTONDOWN s_anim_dy s_anim_idleAnimations background s_anim_selectedVertex s_anim_dx ZstopAnimation theTarget addVertice objects s_anim_animationSettings moveTarget s_anim_dragging s_anim_CurrentObject mousePos selectionHandles s_anim_selectedTool whatLayer selectObject s_anim_PathObject vertexPosition WM_LBUTTONDOWN .&, " )VremoveVertice changeSelectedVertex select s_anim_PathObject vertex &Cancel FALSE button s_anim_dy }dclearAnimation Vertex vertexPosition s_anim_Objectdy s_anim_dx sizeTarget s_anim_dragging error BottomBar addVertice s_anim_Pathdx s_anim_Objectdx s_anim_animationSettings moveTarget s_anim_CurrentObject selectionHandles s_anim_Pathdy s_anim_selectedVertex s_anim_selectedTool Deleting one of the last two vertices will create a null animation. Editing a null animation is the same as creating a new one only it reuses the space allocated for the null animation instead of allocating new space. Do you want to delete the animation? vertexPosition do_buttonDown s_anim_dy s_anim_Pathdy s_anim_dx s_anim_dragging s_anim_Pathdx s_anim_Objectdx s_anim_animationSettings moveTarget s_anim_CurrentObject s_anim_Objectdy s_anim_PathObject vertexPosition do_dragging s_anim_Objectdy showHandles sizeTarget |.verticeCount s_anim_Pathdy SelectionHandles s_anim_dragging s_anim_Pathdx compiler s_anim_Objectdx s_anim_CurrentObject hypotenuseFromVertices selectionHandles s_anim_selectedVertex s_anim_PathObject s_anim_segLengthList do_endDrag .&+ +E or for a vertex next to an existing curved one. newCurveID snextLine middleCurve normal FALSE oldCursor s_anim_CurrentObject objectColor This vertex can't become a curved one. s_anim_dy firstCurve firstCurve A curved vertex can't be set for the first or last vertex drawCurve s_anim_animationSettings moveTarget lastCurve 6previousLine middleCurve s_anim_selectedVertex s_anim_PathObject lastCurve s_anim_dx do_curveVertice )VremoveVertice select }dclearAnimation Vertex |.verticeCount &Cancel s_anim_dy vertexPosition s_anim_dx sizeTarget s_anim_dragging bottomBar addVertice s_anim_animationSettings moveTarget s_anim_selectedTool s_anim_CurrentObject Deleting one of the last two vertices will create a null animation. Editing a null animation is the same as creating a new one only it reuses the space allocated for the null animation instead of allocating new space. Do you want to delete the animation? s_anim_selectedVertex s_anim_PathObject vertexPosition do_keyDown snextLine firstCurve s_anim_animationSettings lastCurve 6previousLine middleCurve moveVertex |.verticeCount tempPos showHandles selectionHandles CurveTopVertice SelectionHandles middleCurve moveTarget s_anim_dy s_anim_dx s_anim_animationSettings s_anim_segLengthList sizeTarget 6previousLine middleCurve firstCurve snextLine lastCurve drawHandle normal objectColor drawLine normal objectColor CurveColor drawCurve newRectangleID 6previousLine middleCurve FALSE snextLine vertexPosition drawHandle lastCurve edrawLine 6previousLine middleCurve newLineID lastCurve addVertice snextLine 6previousLine middleCurve normal FALSE 6previousLine objectColor firstCurve firstCurve snextLine lastCurve middleCurve lastCurve removeVertice ghostColor normal 0,100,0 0,50,100 curveColor objectColor CurveTopVertice ,%H.% objectAnimation s_anim_animationSettings selectionHandles s_anim_PathObject anim_animationSettings ClearAnimation showWidgetsProps ,3clipRef mmwidget_controls adjustControls moved mmwidget_controls adjustControls sized EushowClip mmYieldApp preLoadMedia mmWidgetSysBook (hopenClip HautoPlayMedia llplayClip kQautoShowMedia ,3clipRef setClipControls TB30WIN.DLL AUTHOR enterPage mmWidgetSysBook kautoCloseMedia closeClip ,3clipRef AUTHOR leavePage myClip _jcheckStageSize ,3clipRef setClipControls whatStage stageObj playClip .&+ +E .&+ +E myClip _jcheckStageSize ,3clipRef openClip ,3clipRef closeClip ,3clipRef pauseClip ,3clipRef stopClip myClip ,3clipRef whatStage stageObj showClip ,3clipRef Z>isReady seekClip ,3clipRef Z>isReady seekClipFromEnd myClip stepSize ,3clipRef m{stepDist Z>isReady stepClip myClip stepSize ,3clipRef m{stepDist Z>isReady stepClipBack setClipControls mmNotify mmYieldApp Unhandled: step forward pause clipStat seeking step backward rewind paused ,3clipRef stopped playing fast forward closed setClipControls stage whatStage FALSE playingpausedstopped isReady mmwidget_controls adjustControls stretchStage whatStage stageObj checkStageSize myClip setMySize newClip mediaSizing whatStage setMySize mediaSizing myStage mmwidget_controls adjustControls stretchStage ,3clipRef whatStage setMySize sftsSetFile folder updateSettings J,tabmode enterPage cancel keyDown .&+ +E V, #> 1, #> .&+ + ,%H.% ,%H.% .&+ +E sftsSetFile NewSet caption kwLine Options CONC_SECTION `/ftsListToTextline newSettings CWDFILE lines includeBooks sftsMainBk keywords includeObj background,hidden recordField,field,button,comboBox supdBooks dataType CREATE textContinues excluded words sftsContexts sections YaddBooks incBooks KEYFIELDS contextLine obType valCnt kfieldData titleLoc included books excWordFile textFlow object itemNumber aftsFileExists Contexts sftsKeywords excOptions includedObjects obName excluded Keywords settings file contexts *ftsGetIniVar incOptions TitleLoc context numLines initType object reference updateSettings .&+ +E ,%H.% .&+ +E sftsSetFile NewSet Options textContinues updateBooks contexts FALSE background,hidden update books `/ftsTextlineToList CWDFILE sftsBooks CONC_SECTION includeBooks sftsMainBk keywords *ftsGetIniVar supdBooks recordField,field,button,comboBox tbk_bookRef currcontext dataType CREATE currLine sftsHwtags incOptions excluded words sftsContexts sections YaddBooks incBooks KEYFIELDS obType ftsSetFile valCnt YaddBooks tagName ?4ftsSetIniVar TitleLoc includedObjects included books updateFile textFlow object Contexts sftsKeywords fieldName supdBooks excOptions update settings obName valCnt valCnt excluded Keywords currKW dialog lineCnt kfNum titleLoc context vwrRef numLines excWordFile lines saveSettings ftsSetPage hwTab kwTab objTab pageTab fileTab tabPressed /*%W3 M<+1>@ removeLinks tb30dos.dll tb30win.dll GlobalAlloc ftsGlobalAlloc GlobalFree ftsGlobalFree GlobalHandle ftsGlobalHandle GlobalLock ftsGlobalLock GlobalUnlock ftsGlobalUnlock tb30dlg.dll getIniVar ftsGetIniVar setIniVar ftsSetIniVar WinHelp ftsWinHelp WinHelp ftsWinHelpNum sftsIndexingAvailable fts30mtb.dll ftsRemoveIndex ftsInitIndex ftsAddContext ftsAddPage ftsAddTextToSection ftsAddSectionsToPage ftsBuildIndex ftsOpenIndex ftsCloseIndex ftsTagEntries ftsNamedSections ftsTags ftsContextCount ftsContextTitle ftsAllContextTitles ftsQuery ftsReQuery ftsSetContextScope ftsAllMatchingTitles ftsAllMatchingRefs ftsMatchTitle ftsMatchRef ftsGetOffsets ftsSetErrorNotify ftsGetErrorNotify ftsGetErrorNumber ftsGetErrorString ftsSearch ftsSearchKeyword fileExists ftsFileExists removeFile ftsRemoveFile copyFile ftsCopyFile getDosEnvironmentString ftsDosString chooseDirectoryDlg ftsChooseDirectoryDlg openFileDlg ftsOpenFileDlg saveAsDlg ftsSaveAsDlg getFileListDlg ftsGetFileListDlg listToTextline ftsListToTextline textlineToList ftsTextlineToList KERNEL initlinks standard ninitlink Add Hyperlink Button tbk_bookRef vwrRef hyperlink ftsAddlink standard ninitlink newHW tbk_bookRef vwrRef Add Hyperlink Hotword hyperlink ftsCreatelink standard Edit Hyperlink Button tbk_bookRef ninitlink vwrRef hyperlink ftsEditlink standard Edit Hyperlink Hotword tbk_bookRef ninitlink vwrRef hyperlink ftsModifylink .&, " fftsGlobalAlloc Failed allocating memory. memFlag retval @ftsGlobalLock ftsGetWinPointer ftsGlobalUnlock ftsGlobalHandle :ftsGlobalFree ftsFreeWinPointer retVal entryPg kdataType entry tbk_bookRef dialog text entry entryDlg title textEntry initType retVal entryPg entry tbk_bookRef dialog value entry dataType entryDlg title tagEntry dialog `/ftsTextlineToList retVal entryPg kdataType entry tbk_bookRef itemTxt multi entry entryDlg title multiEntry ,%H.% itemNumber fileName tbk_bookRef stripExtension Search Settings Not Found aftsFileExists sftsInfoVal This book must be saved before this action may be performed. +1infoDlg infoDlg setFile dialog ftsSetFile settings not found getSetFile retVal stripExtension splitPath ;This file defines global options for generating a Search Index. #HANDLE C Options textFlow CONC_SECTION Lines TXFSIZE ?4ftsSetIniVar aftsFileExists TITLE,YES includedObjects SPECIALS sftsMainBk MAXWRD CWDFILE MAXPAR FIRST_CHAP COMMWORD.TXT DEFAULT_SECTION #ARTREF A MAXCHP sectionName MAXART #KEYWORD C wordFile Keywords MAXP_PER_SECT MANAGER CREATE excluded OTHER,YES recordField,field incOptions default includeBooks NON_CONC_SECTION Contexts KEYFIELDS TITLE_SECTION writeDefaultSST sftsSetFile ftsSetFile getSetFile standard aftsFileExists sftsMainBk Create Search Index tbk_bookRef vwrRef ftsCreateIndex pgRef ftsSearch Full Text Search You must create a search index for this book before searches may be performed. indexName Cannot navigate to bkName ftsIndexName splitPath +1infoDlg ftsSearchIndex pgRef Keyword Search You must create a search index for this book before searches may be performed. indexName ftsSearchKeyword Cannot navigate to bkName ftsIndexName splitPath +1infoDlg ftsKwSearch sftsSetFile ftsSetFile getSetFile Index Settings standard [^stepBack aftsFileExists index settings sftsMainBk tbk_bookRef vwrRef ftsIndexSettings sftsSetFile ftsSetFile getSetFile standard aftsFileExists sftsMainBk reader settings tbk_bookRef Reader Level Settings vwrRef ftsReaderSettings sftsSetFile ftsSetFile getSetFile standard aftsFileExists Page Settings sftsMainBk page settings tbk_bookRef vwrRef ftsPageSettings sftsSetFile ftsSetFile pgRef getSetFile [None] standard FALSE aftsFileExists choice Hotword Settings Multiple hotwords are selected. Please select only one at a time. sftsMainBk +1infoDlg newHW tbk_bookRef ainitPage selHW ftsTag ftsTag vwrRef assign value ftsHWSet sftsSetFile secName hotword pgRef getSetFile [None] standard selOb aftsFileExists choice sftsMainBk assign section ftsSetFile tbk_bookRef ainitPage ftsSection ftsExclude exclude vwrRef Object Settings ftsObjectSet .&+ +E wait dlg tbk_bookRef vwrRef openWaitDlg .&+ +E wait dlg tbk_bookRef closeWaitDlg middleLine ftsInsertLine middleLine ftsRemoveLine middleLine ftsFindLine MM_CMD_Object_Settings MM_CMD_New_Keywords MM_CMD_Build_Index MM_CMD_New_Section Reader Level Settings (indexing) Index Settings keyword MM_CMD_Index_Settings MTB30.HLP MM_CMD_Hotword_Settings MM_CMD_Page_Settings MM_CMD_New_Tag MM_CMD_Reader_Level_Settings MM_CMD_New_Sections Keyword Settings (indexing) MM_CMD_New_Context MM_CMD_Search_Settings_Not_Found ftsWinHelp MM_CMD_New_Contexts SfftsWinHelpNum contextNum Hotword Settings (indexing) Build Index callWinHelp .&, 7 1,!JZY info dialog msgField frame message infoDlg infoPg tbk_bookRef dialog infoDlg updateSettings enterPage sftsCntxt sftsTitle leavePage cancel keyDown obType itemNumber contextLine Options ftsContext pgRef sftsTitle sftsCntxt property pgKeywords newContext `/ftsListToTextline page keywords sftsSetFile object ftsContextValue kwLine `ftsTitleValue sftsKeywords lines ftsKeywords newKW exclude *ftsGetIniVar ftsTitleOverride sftsContexts text of Keywords reference index keywords xzftsTitle ftsIgnore Contexts titleLoc context object reference numLines contexts title updateSettings w, "V sftsSetFile Contexts pgRef `/ftsTextlineToList contexts sftsKeywords ftsTitleOverride newContext newContext ?4ftsSetIniVar ftsKeywords ]ftsInsertLine currKW lines yzftsTitle newKW currcontext *ftsGetIniVar context page keywords sftsCntxt newKW sftsTitle newKW property ftsContext Keywords currLine lineCnt exclude sftsContexts numLines title ftsIgnore saveSettings tabPressed tabPressed tabname J,tabMode obtype tabNum buttonclick etabLimit Cannot set tab tabPressed myTabMode tabMode tabLimit myTabMode tabMode mytabheight tabHeight myTabHeight tabHeight arrangeTabs myTabSpace tabSpace myTabSpace tabSpace w, #? manual false myNumTabs etabLimit Can only have Must have at least 1 tab arrangeTabs numTabs mynumtabs numTabs manual tabRef mynumTabs tabLabel tabHighlight tabHeight arrangeTabs myNumTabs obtype highlight mytabheight sized w, #> myTabMode tname myNumTabs mytabspace anchor arrangeTabs sliderMove startSliderMove sliderMax sliderMin nearestPUPP mysliderPos HendSliderMove sliderMax sliderBounds sliderMin mysliderPos nearestPupp leftMButton sliderPos s_anim_dx `primaryMouseButton newMouseX oldMouseX buttondown .isChild ,toggleInvert [ebuttonPressed buttonUp \ebuttonPressed ,toggleInvert buttonDown .isChild ,toggleInvert buttonStillDown invertedButton invertedButton toggleInvert FALSE group isChild B2[}M**'O f_background f_Book f_button f_comboBox f_field f_oneDgraphics f_twoDgraphics f_group f_hotword f_oleObject f_page f_paintObject f_recordField f_window sysSupportedMedia f_systemProps f_widget f_stage swapChar 1, "V 1, "V <+U!8 .&, #? w, #> w, #> w, #> w, #> <+U!! copyError 9hdPaths msgBox minimalPaths Packaging was incomplete. stbk_thisBook clip id pkgPrompt Information mediaPath FileExists ListToTextline OpenFileDlg SortList eMoveFile OpenFileDlg Packaging Completed Successfully. CopyFile FileExists MoveFile RemoveFile CDaudio,VideoDisc,VCR,overlay This book contains clips that refer to CD-ROM media files which are in directories relative to this book. Is it alright to add to the CD-ROM media path? copyAll statusBar HshortFileName clipPkgPrompt iCopyFile CopyError tb30dos.dll YesNo (SfindFile tb30dlg.dll moveAll YfindClip hswapChar moveError This book contains clips that refer to Hard Disk media files which are in directories relative to this book. Is it alright to add to the Hard Disk media path? 5cdPaths tk30dos.dll Exclamation Find Media File Question Packaging completed, however 1 or more clips were skipped. BinPaths insertPlaceHolder packageClips mediaPath FileExists findClip FileExists findFile FALSE mediaPath inPaths .&, #? tbkToolsDlg Choose Package Option clipPkgPrompt pkgPrompt YesNo msgBox Exclamation . There may not be enough disk space or the file may be open. Would you like to continue packaging? There was a problem copying the file copyError RemoveFile YesNo msgBox Exclamation iCopyFile There was a problem moving the file . The file may be open. Would you like to continue packaging? moveError shortFileName removeDuplicateItems mKreplaceRelativePath sortList minimalPaths sortList removeDuplicateItems w, #> FileExists stbk_thisBook mediaPath HshortFileName idirectoryOnly replaceRelativePath w, #> stbk_thisBook mediaPath HshortFileName replaceExplicitPath directoryOnly insertPlaceHolder FALSE itemExists Cancel MessageBox YesNo Ignore Exclamation KERNEL system AbortRetryIgnore OkCancel Abort Question Information YesNoCancel RetryCancel Retry MessageBox msgBox V, #> sftsSetFile _9updateStatus contextLine Options `/ftsListToTextline booksLeft pgKeywords kfieldData oldRSB CREATE itemNumber kwLine sftsValidObs sftsBooks sftsKeywords lines includeBooks sftsMainBk Keywords sftsHwtags sftsContexts aftsFileExists sftsSections field,recordField,button,comboBox tbk_bookRef dialog Contexts oldPageRef CONC_SECTION *ftsGetIniVar sftsVRef context sections numLines Reading Settings KEYFIELDS updateBooks _9updateStatus nwalkAllObjects sftsValidObs oldRSB sftsBooks sftsKeywords oldPageRef Done. booksLeft oldPageRef oldRSB sftsVRef Scanning sftsContexts nextBook .&, " ,%H.% ftsContext walkObjects ftsFindLine ftsKeywords sftsKeywords ftsKeywords ftsContext sftsContexts walkAllObjects -#, 7 RecordField hwtag obRef sftsSections Background sftsValidObs ftsFindLine itemNumber Field recIndex Hotword hwtag obRef curObjType sftsContexts objList sftsHwtags bookRef backgrounds sftsKeywords recFieldCount backIndex sftsVRef recIndex tlist curObj objecttoWalk ftsSection sftsSections sftsValidObs sftsLpMsg ftsSection curObjType ftsSection ftsTag ftsTag sftsHwtags ftsSection Scanning recordField _9updateStatus field walkObjects statusbar sftsVRef updateStatus obName packDword s_hMidiOut s_stop MidiOutShortMsg noteOn playMIDI packDword s_hMidiOut s_stop MidiOutShortMsg chngProg changeProgram packDword s_hMidiOut s_stop noteOff MidiOutShortMsg stopMIDI s_device globalAlloc MidiOutOpen closeMIDI s_hMidiOut globalLock globalUnlock MidiOutGetNumDevs globalFree openMIDI s_device B%MidiOutClose s_hMidiOut u0MidiOutReset closeMIDI packDWord XuinitMidiMapper GlobalAlloc GlobalFree GlobalHandle GlobalLock GlobalUnlock startSong timeGetTime credits copenMidi skipDlgAnim uvinitSong mmSystem.dll KERNEL enterBackground ]stopMidiTimer closeMidi credits s_hMidiOut s_stop kernel mmSystem.DLL u0MidiOutReset s_songPointer leaveBackground globalUnlock globalAlloc globalFree globalLock s_chanOffset s_drumOffset \midimap.cfg TgetSystemDirectory midiMapper sysDir sysSize initMidiMapper s_lastSongPointer s_iPointer s_chanOffset s_song s_drumOffset s_aPointer initSong startSong midiReady w,!J2Y s_startTime FALSE s_stop startMIDITimer s_songPointer s_iPointer s_song ;getTime s_aPointer startSong stopMIDITimer midiTimer creditClient credits midiTimerID Gmidi_setTimer tbk_bookRef SetTimer midi_setTimer KillTimer midi_killTimer midiTimer startMidiTimer creditClient njmidi_killTimer midiTimerID midiTimer stopMidiTimer timerNotify midiTimer midiTimer s_startTime 9changeProgram s_lastSongPointer ianimateCredits 0,1,2,3,6,7,11,12,15,24,25,26,27,45,46 startSong ;getTime hplayMIDI l_songPointer aList credits s_stop Credits tbk_bookRef tstopMIDI s_iPointer |36|37|38|39|43|47|52|53|54|55|58|62|63|77| ]stopMIDITimer s_song s_songPointer s_aPointer timerNotify timeGetTime getTime cancel keyDown extSz speed other page previous in,out selOb slide page id tgtPg |EftsLink newHW Normal trans +nrmlSz target page fast,slow,normal ftsTrans transition initlink w, #? w, #? w, #> next page linkButtonScript speed previous previous page to handle ftsHyperLink new page page id &Link transition linkBookScript newHW }EftsLink bookScr trans ftsTrans selOb other page savelink -- handle hyperlink navigation end when link = "previous page" link = next page when link = "next page" else transition trans to link -- trans specifies the transition type link = previous page end ftsHyperlink go to link -- link specifies the target page conditions if trans <> null to handle ftsHyperlink link,trans linkBookScript -- the target page and transition type end buttonClick -- send a message to the book to handle navigation send ftsHyperLink my ftsLink,my ftsTrans to handle buttonClick -- ftsLink and ftsTrans are user properties linkButtonScript ftsLinkPage integer s_anim_animationSettings spinUp integer s_anim_animationSettings spinDown sliderMax button integer BottomBar slider s_anim_animationSettings buttonUp sliderMax BottomBar slider s_anim_animationSettings leaveField hdrowDownItems hdrowDownItems anim_AnimationSettings fillAnimationList objects s_anim_animationSettings s_anim_CurrentObject selectedObject enterPage .&, #? objList selectionHandles s_anim_PathObject currentObject enterPage selectObject fillAnimationList objRef animations selectChange sliderMax sliderMin curPos thumb sliderPos usliderPageSize sliderMax thumbBounds sliderBounds sliderMin sliderPos slider slider_mode nearestPupp nearestPUPP pageSlider pageSlider slider_mode buttondown pageSlider buttonstilldown pageSlider slider_mode buttondoubleclick slider_mode buttonup select WM_LBUTTONDOWN setCursor bottomBar editorScripts openWindow bottomBar PsetSize shown s_anim_lastLoc s_anim_objectdy s_anim_dy s_anim_idleAnimations s_anim_pathdy s_anim_dx s_anim_curvedVertices s_anim_PathObject s_anim_pathdx s_anim_Objectdx s_anim_animationSettings s_anim_dragging s_anim_CurrentObject s_anim_selectedVertex s_anim_selectedTool s_anim_segLengthList closeWindow modeCursor setCursor theTarget setCursor Vertex W_handle NE_handle button lineVertex vertex pathObjectID SW_handle s_anim_PathObject E_handle remove N_handle s_anim_handle selectionHandles statusBar SE_handle NW_handle s_anim_selectedTool modeCursor .&, #? SelectObject vertex animations selectObject bottomBar objects selectedObject s_anim_PathObject initDialog .&+ +E , /E8 , /E8 , /E8 , /E8 , /E8 , /E8 , /E8 false Variable ,"lineVertices 1_curveVertices $isReady seekClip ,3clipRef Z>isReady seekClipFromEnd myClip stepSize ,3clipRef m{stepDist Z>isReady stepClip myClip stepSize ,3clipRef m{stepDist Z>isReady stepClipBack setClipControls mmNotify mmYieldApp Unhandled: pause clipStat seeking paused ,3clipRef stopped playing closed setClipControls stage whatStage FALSE playingpausedstopped isReady mmwidget_controls adjustControls stretchStage whatStage stageObj checkStageSize myClip setMySize newClip mediaSizing whatStage setMySize mediaSizing myStage mmwidget_controls adjustControls stretchStage ,3clipRef whatStage setMySize showWidgetsProps ,3clipRef mmwidget_controls adjustControls moved mmwidget_controls adjustControls sized EushowClip mmYieldApp preLoadMedia mmWidgetSysBook (hopenClip HautoPlayMedia llplayClip kQautoShowMedia ,3clipRef setClipControls TB30WIN.DLL AUTHOR enterPage mmWidgetSysBook kautoCloseMedia closeClip ,3clipRef AUTHOR leavePage myClip _jcheckStageSize ,3clipRef setClipControls whatStage stageObj playClip .&+ +E .&+ +E myClip _jcheckStageSize ,3clipRef openClip ,3clipRef closeClip ,3clipRef pauseClip ,3clipRef stopClip myClip ,3clipRef whatStage stageObj showClip ,3clipRef Z>isReady seekClip ,3clipRef Z>isReady seekClipFromEnd myClip stepSize ,3clipRef m{stepDist Z>isReady stepClip myClip stepSize ,3clipRef m{stepDist Z>isReady stepClipBack setClipControls mmNotify mmYieldApp Unhandled: clipStat seeking paused ,3clipRef stopped playing closed setClipControls stage whatStage FALSE playingpausedstopped isReady mmwidget_controls adjustControls stretchStage whatStage stageObj checkStageSize myClip setMySize newClip mediaSizing whatStage setMySize mediaSizing myStage mmwidget_controls stretchStage ,3clipRef whatStage setMySize V, #> sftsSetFile _9updateStatus contextLine Options `/ftsListToTextline booksLeft pgKeywords clean kfieldData oldRSB CREATE itemNumber kwLine sftsValidObs bookCount sftsBooks sftsKeywords lines includeBooks sftsMainBk Keywords sftsHwtags sftsContexts aftsFileExists sftsSections field,recordField,button,comboBox tbk_bookRef dialog Contexts oldPageRef CONC_SECTION FALSE *ftsGetIniVar sftsVRef context sections numLines Reading Settings KEYFIELDS updateFile _9updateStatus nwalkAllObjects about to scan book sftsValidObs oldRSB oldPageRef Done. bookCount booksLeft oldPageRef oldRSB sftsVRef Scanning nextBook ,%H.% .&, " ,%H.% ftsContext walkObjects ]ftsInsertLine sftsKeywords ftsKeywords sftsContexts walkAllObjects -#, 7 RecordField hwtag obRef sftsSections Background sftsValidObs itemNumber hwtag obRef curObjType sftsContexts objList sftsHwtags bookRef backgrounds sftsKeywords recFieldCount backIndex sftsVRef recIndex tlist curObj objecttoWalk ftsSection sftsSections sftsValidObs sftsLpMsg Field ]ftsInsertLine recIndex Hotword ftsSection curObjType ftsTag sftsHwtags ftsSection Scanning recordField _9updateStatus field walkObjects statusbar sftsVRef updateStatus obName "uo4# 'V@t+ .&+ +E V, #> -#s>\ 1, #? sftsSetFile Initializing Index contextLine contexts sftsExclude stripExtension oldRSB Options pgKeywords FALSE kfieldData `/ftsListToTextline sftsTitleLoc kwLine sftsBooks booksLeft lines sftsTextFlow sftsMainBk keywords ftsRemoveIndex tbk_bookRef creationLog FIRST_CHAP CREATE oldPageRef sftsHwtags sftsVRef sftsContexts includeBooks Initializing index sftsIndexHandle KEYFIELDS sftsLogFile includedObjects _9updateStatus sftsSections CONC_SECTION Contexts 2ftsSetErrorNotify aftsFileExists Removing Existing Index Files TextFlow errorState itemNumber sftsValidObs sftsKeywords R,ftsInitIndex Keywords 3modifyMTB30ini sftsContextList ***Unable to find Book excluded dialog Opening log file: *ftsGetIniVar titleLoc context numLines indexName Reading Settings Removing old index files createIndex _9updateStatus Begin scanning MftsBuildIndex Building Index Index generation complete. nwalkAllObjects Scanning Book errorState Done. Building index. ftsIndexName creationLog booksLeft End scanning sftsVRef 06cleanUp sftsIndexHandle splitPath indexName nextBook w, #? 1, #? ,%H.% .&, " ,%H.% pgTitle ftsContext walkObjects RcleanRef uogetTitle ftsFindLine ftsContextValue ***New Keyword: curContext sftsKeywords ftsKeywords Adding Page sftsContexts errorState ftsAddPage creationLog ***Untitled Page - Excluding ftsIgnore sftsIndexHandle ggetContextNum ***New Context: walkAllObjects -#, 7 RecordField hwtag obRef ftsAddSectionsToPage sftsExclude Background hwtag obRef obNum curObjType sftsContexts objList sftsHwtags sftsExclude bookRef backgrounds sftsTextFlow sftsKeywords recFieldCount backIndex sftsVRef recIndex sftsTextAdded sftsIndexHandle tlist curObj objecttoWalk sftsSections sftsValidObs rfList recordField ***Unknown Tag: Group itemNumber background sftsValidObs Field sftsTextFlow creationLog recIndex Hotword obNum curObjType ftsTag sftsHwtags Scanning V@addObjectText _9updateStatus sftsIndexHandle sftsTextAdded walkObjects statusbar sftsVRef updateStatus obName richText of button caption of retVal field ftsAdditionalText of text of comboBox dropdownitems of textExp ftsContext itemNumber RftsAddContext ftsContextValue sftsContextList errorState Adding Context contextName contextNum sftsIndexHandle getContextNum sftsLogFile creationLog obType obRef xzftsTitle sftsTitleLoc `ftsTitleValue ftsTitleOverride text of titleRef titleLoc obType obRef pgRef titleRef sftsSetFile sftsTitleLoc titleLoc title getTitle 1, #> bkName splitPath cleanRef .&+ +E w, #> Error %ftsGetErrorString 06cleanUp sftsIndexHandle errorState .&+ +E sftsLogFile sftsSections sftsExclude sftsHwtags sftsTitleLoc sftsValidObs oldRSB sftsTextFlow sftsBooks sftsKeywords oldPageRef sftsContextList standard tbk_bookRef sftsIndexHandle booksLeft oldPageRef oldRSB sftsVRef sftsContexts indexName cleanUp ***Unknown Section: ftsAddSectionsToPage sftsSections sftsExclude zrftsAddTextToSection FALSE sftsValidObs ftsExclude itemNumber sftsTextFlow ftsExcludeValue SZtextExp ftsSection creationLog Adding Sections ftsSection tmpObj hidden sftsIndexHandle page,background sftsTextAdded addObjectText STSPARMS {:ftsDosString mtb30.ini ?4ftsSetIniVar STSPATH section tempDir TMPDIR modifyMTB30ini ,%H.% button parentBounds sliderBounds hasSlider myObjs slider thumb whatStage adjustcontrols ,%H.% thumb button parentBounds sliderBounds hasSlider myObjs slider sliderline whatStage adjustcontrols 1LlastWin 1LlastWin previous 1LlastWin first 1LlastWin 1LlastWin background 1LlastWin newPage 1LlastWin obType script checkingSelection false (Multiple selection) 1LlastWin propGroup \updateBrowser buttons stbk_curOb headerType checkingSelection NBdisplay selection header checkSelection .&, " to propval 1LlastWin uprops firstLineOnly propval executionBuffer firstLineSpec propname textline 1 of props setSysVar Error when compiling script: setProp varValue varName system = varValue setSysVar system varName sysVarValue w, #> &System Variables showUserProps U&ser Properties 1LlastWin uprops browser Sys&tem Properties Objec&t Properties Browser tbk_bookRef showProps props updateBrowser ,%H.% .&+ + false systemVars 1LlastWin curProp stbk_curOb obref updateHeader obType lists propGroup propvalue homebase vlist vValues false curProp stbk_curOb vNames propValue propName showUserProps ,%H.% system loc_i loc_vlist loc_vNames loc_vValues loc_ss 1LlastWin loc_ss propValue propName systemVars POtbk_wid_props cp_widget bookref tbk_bookRef w_propNames ,%H.% POtbk_wid_props propValues 2[f_widget bookref propNames propValues bookref tbk_bookRef w_propValues rptbk_wid_values tbk_bookRef lst_widget w_propListText .&+ + p$p_field 1pf_twoDGraphics lst_oneDgraphics RoundedRectangle B lst_hotword Background cp_oneDgraphics xp_twoDGraphics RecordField f_combobox m[f_oneDgraphics Button system obType p_oleObject PaintObject >f_group 4f_paintObject h!lst_combobox AngledLine Blst_oleObject Rectangle unlst_background f_background wp_button **f_stage ComboBox tbk_bookRef lst_twoDGraphics w_propListText Viewer lst_group Gp_group #=p_paintObject propvalue tbk_wid_name updateHeader p_combobox f_field lst_window p_hotword (9w_propValues propValue obtype K/p_recordField Polygon w_propNames lst_stage lst_paintObject IrregularPolygon Group 2p_stage stbk_propTypes lst_systemProps propValues of_systemProps p_page 1LlastWin lst_recordField Field Picture f_oleObject klst_book `lst_page Ellipse lst_button bookref %xp_systemProps stbk_curOb p_book Hotword (Widget) propGroup Stage Curve obref f_hotword hof_button jtp_window f_book f_page lst_field p_background lf_window &f_recordField propName showProps ,%H.% itemOffset sizeToPage obtype script cheader rightEdge propFieldBounds propGroup splitter valueLabel uprops splitVert stbk_lastWinSize clientSz propButtonGroup fheader dialog labelGroup propValue sized MF_SEPARATOR MF_STRING wflag appendMenu appendMenu getSystemMenu /lgetSystemMenu must use a lower id number addSysMenuItem ?properties About Property Browser... 6getToolBookIniItem addSysMenuItem maxSize splitter Browser sm_cyscreen getSystemMetrics splitterPlacement clientSz propbuttongroup tbk_bookRef getsystemmetrics getSystemMetrics placement sm_cxscreen browser Position WM_SYSCOMMAND openWindow <+U!! Position =@setToolBookIniItem Browser splitter propbuttongroup Splitter statusbar placement closeWindow tbktoolsdlg about About WWM_SYSCOMMAND WM_SYSCOMMAND previous first background .&+ h TsetProp tbkToolsDlg multiLine HLStoRGB rgbtohls fsize retval fface curType uprops propVal bookRef initString pageRef curList colortype fstyle uprop leader false setupstring stbk_curOb retcolor dlgString stbk_propTypes propvalue propName FchooseFontDlg propEdit nextValue upropsdlg \updateBrowser bookRef retcolor custom Tsetprop colorPaletteDlg fstyle tbk_bookRef sysVarValue ChooseFontDlg rgbtohls hlstorgb script tb30DLG.DLL qhlstoRgb propVal bold,italic curType tb30win.dll propValue boolean color retval fface false regular stbk_propTypes tb30dlg.dll Edit Property 1LlastWin bold italic uprops fsize browser 1Llastwin colortype pageRef Add system variable qrgbtohls Cannot edit array values. stbk_curOb Add UserProperty uprop leader colorPaletteDlg setupstring window cancelled qhlstorgb dlgString props curList propvalue Cannot edit properties longer than 32000 characters. propName buttonDoubleClick stbk_propTypes abcdefghijklmnopqrstuvwxyz_0123456789 uprops fheader curType propValue propName keydown .&, " itemOffset itmPos nextValue .&+ h color script mScurProp true,false stbk_propTypes boolean uprops custom curList multiline headerType displayVal NBdisplay curType propName header propValue updateHeader tabPressed tabPressed tabname J,tabMode obtype tabNum buttonclick false etabLimit Cannot set tab tabPressed myTabMode tabMode tabLimit myTabMode tabMode mytabheight tabHeight myTabHeight tabHeight arrangeTabs myTabSpace tabSpace myTabSpace tabSpace w, #? manual false myNumTabs etabLimit Can only have Must have at least 1 tab arrangeTabs numTabs mynumtabs numTabs manual tabRef mynumTabs tabLabel tabHighlight tabHeight arrangeTabs myNumTabs obtype highlight mytabheight sized w, #> myTabMode tname myNumTabs mytabspace anchor arrangeTabs goPage tablabel tabPressed tabname J,tabMode obtype tabNum buttonclick false etabLimit Cannot set tab tabPressed myTabMode tabMode tabLimit myTabMode tabMode mytabheight tabHeight myTabHeight tabHeight arrangeTabs myTabSpace tabSpace myTabSpace tabSpace w, #? manual false myNumTabs etabLimit Can only have Must have at least 1 tab arrangeTabs numTabs mynumtabs numTabs manual tabRef mynumTabs tabLabel tabHighlight tabHeight arrangeTabs myNumTabs obtype highlight mytabheight sized w, #> myTabMode tname myNumTabs mytabspace anchor arrangeTabs keyRef dataType formats buttonClick /R/I/T/C/ [yy]yy:mm:dd dateFormats dd:mm:[yy]yy mm:dd:[yy]yy formats initType ,%H.% left,right,context,bottom,lowerLeft,lowerRight,upperLeft,upperRight false left,right,context,bottom ftsLinkPage turnPage slide left,right spiral horizontal,vertical destlabel split selectChange FALSE s_anim_sizing s_anim_lastLoc buttonDown NSPartner W_handle NE_handle S_handle switchRect SW_handle EWPartner E_handle s_anim_sizing N_handle s_anim_CurrentObject selectionHandles oldName SE_handle NW_handle s_anim_lastLoc w7crossPartner buttonStillDown do_enddrag FALSE showHandles s_anim_dy s_anim_dx s_anim_animationSettings s_anim_sizing editorScripts s_anim_CurrentObject s_anim_selectedVertex s_anim_lastLoc buttonUp crossPartner EWPartner NSPartner W_handle NE_handle S_handle SW_handle E_handle objBounds N_handle s_anim_CurrentObject selectionHandles SE_handle NW_handle showHandles selectObject aborted $offsetPathBy s_anim_idleAnimations vertexPosition ZstopAnimation theVertices s_anim_animationSettings compilePath selectionHandles s_anim_PathObject startSliderMove currentTime jumpToStep s_anim_animationSettings s_anim_CurrentObject sliderMove updateCel jumpToStep .&, " 1+U!8 updateCel enterPage leavePage leaveBackground .&s>V 1+U!8 selectObject s_anim_animationCache aborted $offsetPathBy s_anim_idleAnimations vertexPosition ZstopAnimation theVertices s_anim_animationSettings 9a_timeGetTime compilePath s_anim_CurrentObject startAnimTimer selectionHandles s_anim_PathObject buttonClick _stopAnimTimer s_anim_dy sizeTarget vertexPosition s_anim_dx newVertice error moveTarget editorScripts s_anim_CurrentObject s_anim_selectedVertex s_anim_PathObject doneAnimatingNotify initDialog enterPage [do_buttonDown editorScripts s_anim_PathObject buttonDown do_dragging editorScripts default s_anim_PathObject buttonStillDown do_endDrag editorScripts s_anim_PathObject buttonUp do_curveVertice editorScripts s_anim_PathObject buttonDoubleClick do_keyDown editorScripts s_anim_PathObject keyDown ,!J(" keyUp theTarget setCursor mouseEnter theTarget setCursor mouseLeave reader editorScripts moveVertex vertexPosition vertexPosition |.verticeCount theVertices verticeCount .&+ + GappList tb30DOS.dll fileExists appList initDlg shortName iconDisplay exe icon fileExists thisBook newResource newIcon nameFromPath default icon tbk_bookRef buttonRef showIcon appList fileExists mtb30.exe appStuff No applications are set up in the ToolBook.ini file. File not found. appName Could not find book 06cleanup runApp 06cleanup cancel iconDisplay itemoffset thisBook default icon,Property browser,exe icon,wait,info curIcon buttonRef iconName cleanup .&, " slash curChar nameFromPath +!GlobalAlloc tbk_GlobalAlloc GlobalFree tbk_GlobalFree GlobalHandle tbk_GlobalHandle ,"T, #?-# GlobalLock tbk_GlobalLock , #.B GlobalUnlock tbk_GlobalUnlock GetPrivateProfileString tbk_GetIniInfo , Ticon-" ttbk_linkIniFileFuncs KERNEL .iniFile r1tbk_freeWinPointer Add on Tools ihtbk_GetIniInfo tbk_getWinPointer appList cancel keychar ,%H.% itemOffset \lastTickCount enterpage USER.EXE mmGetTickCount leavePage myClip milliseconds $setPos \lastTickCount sliderUpdate mmGetTickCount closed getTickCount mmGetTickCount myParent whatTick mmGetTickCount ,3clipRef stopped thumb playing USER.EXE paused \lastTickCount status s_tmp_bnds thumb updateMedia buttonDown newPos myStage myClip milliseconds ,3clipRef _seekClip whatStage updateMedia \lastTickCount enterpage USER.EXE mmGetTickCount leavePage myClip milliseconds $setPos \lastTickCount sliderUpdate mmGetTickCount closed getTickCount mmGetTickCount myParent whatTick mmGetTickCount ,3clipRef stopped thumb playing USER.EXE paused \lastTickCount status s_tmp_bnds thumb updateMedia buttonDown newPos myStage myClip milliseconds ,3clipRef _seekClip whatStage updateMedia showWidgetsProps ,3clipRef mmwidget_controls adjustControls moved mmwidget_controls adjustControls sized EushowClip mmYieldApp preLoadMedia mmWidgetSysBook (hopenClip HautoPlayMedia llplayClip kQautoShowMedia ,3clipRef setClipControls TB30WIN.DLL AUTHOR enterPage mmWidgetSysBook kautoCloseMedia closeClip ,3clipRef AUTHOR leavePage myClip _jcheckStageSize ,3clipRef setClipControls whatStage stageObj playClip .&+ +E .&+ +E myClip _jcheckStageSize ,3clipRef openClip ,3clipRef closeClip ,3clipRef pauseClip ,3clipRef stopClip myClip ,3clipRef whatStage stageObj showClip ,3clipRef Z>isReady seekClip ,3clipRef Z>isReady seekClipFromEnd myClip stepSize ,3clipRef m{stepDist Z>isReady stepClip myClip stepSize ,3clipRef m{stepDist Z>isReady stepClipBack setClipControls mmNotify mmYieldApp Unhandled: pause clipStat seeking paused ,3clipRef stopped playing closed setClipControls stage whatStage FALSE playingpausedstopped isReady mmwidget_controls adjustControls stretchStage whatStage stageObj checkStageSize myClip setMySize newClip mediaSizing whatStage setMySize mediaSizing myStage mmwidget_controls adjustControls stretchStage ,3clipRef whatStage setMySize ,%H.% button parentBounds sliderBounds hasSlider myObjs slider thumb whatStage adjustcontrols 1,!Kh 1,!K8 1,"!# 1,!JxY 1,"!# chain break chainStart chainEnd anchor dropAnchor chain break anchor hideAnchor .&, " The frame rate should be changed to newRate Variable The animation will be smoother if the frame rate is set to seconds. so that the animation will reach the end point at exactly smooth s_anim_animationSettings &Keep Current Setting buttonClick CreditsViewer getSystemDirectory GlobalAlloc GlobalLock GlobalUnlock GlobalFree mmsystem.dll KERNEL getActiveWindow midiOutOpen MidiOutShortMsg MidiOutReset MidiOutClose MidiOutGetNumDevs MidiOutGetDevCaps dlgViewer skipDlgAnim seconds SetTimer KillTimer GetActiveWindow openWindow closeMidi credits dlgViewer +endAnim closeWindow skipDlgAnim False CreditsViewer LockOut enterPage CreditsViewer leavePage lastTrans endAnim midiReady False creditsviewer names makeTrans lockout fade fast AnimateCredits ,%H.% spiral in speed 200 |mybounds names fade speed 200 paintobject rip hideAnchor headhole tear in fast startPos slide right out fast slide in fast slide out bottom fast lastTrans hook2 endPos cannon spiral out speed 200 slide out fast @scrollToNext slide left out fast dropAnchor makeTrans propname textscrolled false ^-adjustscroll buttondown false ^-adjustScroll buttonstilldown ^-adjustScroll buttonup false ^-adjustScroll keyDown false uprops \updateBrowser ^-adjustScroll Tsetprop stbk_curOb propName keyup .&, " .&+ + false otherField updateHeader propname adjustScroll 1, #b 1, #> false propEdit &Edit (Not Editable): propName initdlg cancel keychar propEdit sEreturnString cancel propEdit enterpage findString scriptDisplay objectRef selectChars replaceString initDlg sEreturnString sEreturnString Yes to All yestoAll sEreturnString cancel stylebuttons borderbuttons NthreeDeeStyle updateSample sample border initDlg stylebuttons border borderButtons threeDeeRect inorout Nthreedeestyle border sample updatesample cancel keychar cancel stylebuttons border borderButtons sEreturnstring inorout Nthreedeestyle border tb30win.dll qhlstorgb regular tb30dlg.dll bold,italic ChooseFontDlg pageref HLStoRGB rgbtohls bold italic initcol FchooseFontDlg setupstring retval scolor qrgbtohls drawing buttonclick sysPolygonShape patternGroup sysStrokeColor sysFillColor showGrid drawDirect solidFill false 6getToolBookIniItem sysGridSnap 0,100,0 sysGridSpacing 0,0,0 sysPattern section puToInches metric fcolor polygonShape Startup Preferences snapToGrid gridSpacing pttrn scolor units sysGrid initpage sysPolygonShape patternGroup sysFillColor showGrid =@setToolBookIniItem drawDirect sysStrokeColor sysGridSnap sysGridSpacing pttrn section inchesToPu fcolor polygonShape Startup Preferences snapToGrid gridSpacing scolor sysGrid sysPattern updateIni Bwritescripts buttonup 1, #? ,%H.% of obj set p_ dropDownItems script stepline recordField set lst_ clear chars (cnt-1) to cnt of txt -- These scripts were written by another handler. return txt of this book to commandWindow writeLine -- returns values of curObType set cnt to charCount(txt) local txt stepline curOb curLists curObType executionBuffer curProps systemProps &crlf after txt executionBuffer to get f_ customColors tmp.txt of (words 1 to 3 of obj) textline 1 of properties. Hard-coded for speed. richText props writeScripts writeLine " & CRLF & " cleanString ttbk_linkIniFileFuncs false folder system tbk_bookRef ainitpage J,tabmode drawing enterBackground metric retval putoInches roundtoNearestN metric inchestoPu roundtoNearestN decimal ftype 0123456789 keychar decimal ftype leavefield .&+ + sysHistoryRecord pageHeight 6getToolBookIniItem sBooksWithPath readerRightClick ToolBook section fileAndDir sysRuler initEnabled false sysbooks sBooks puToInches updatePath metric sysHotwordsShown startupReaderRightClick showHotwords recordHistory Startup Preferences remove showRulers pageWidth units initpage 1, #> fileAndDir .&, " pathinfo .&, " fileinfo w, #> .&, " 1, #> sysHistoryRecord pageHeight readerRightClick ToolBook Startup Preferences =@setToolBookIniItem sysRuler 9\fileinfo gpathinfo sysbooks section inchesToPu showHotwords startupReaderRightClick recordHistory sysHotwordsShown tabloc showRulers pageWidth bookname updateIni 1, #b .&, " .&, " ttype firstLine sysalignment Single sysFontFace 6getToolBookIniItem System sysLineSpacing tabSpacing sysFontStyle alignment tabbuttons sysFontSize 1 1/2 0,0,0 sysTabType sysIndents section puToInches lineSpacing sysTabSpacing Double Startup Preferences fromLeft fromRight metric units sysStrokeColor initpage ?sysTabSpacing firstLine sysalignment Single sysFontFace sysStrokeColor sysLineSpacing tabSpacing =@setToolBookIniItem alignment tabButtons sysFontSize 1 1/2 sysTabType sysIndents section inchesToPu lineSpacing sysFontStyle Double Startup Preferences fromRight fromLeft ttype updateIni color script cheader boolean textheader custom multiLine dialog headertype cheader textheader fheader maxlines display findString stbk_searchString stbk_replaceString replaceString Start initDlg <+U!8 <+U!! search tbkToolsDlg replace matchword nameOffset stbk_searchString stbk_asWord stbk_promptChange Found scripts Page/background/book scripts findString stbk_vRef r1tbk_freeWinPointer tbk_bookRef stbk_foundList statusBar sMode GwalkHierarchy findstring tbk_getWinPointer range nwalkallobjects prompt searchOb false Could not find ytbk_linkMessageFuncs firstFind Scripts in object hierarchy foundScripts replaceString statusbar Scripts of all objects stbk_searchOnly stbk_canceled stbk_searchRange searchmode stbk_cnt stbk_firstFind stbk_replaceString stbk_lpMsg range searchOb false stbk_vRef nameOffset stbk_canceled stbk_searchString stbk_replaceString stbk_foundList stbk_lpMsg stbk_promptChange stbk_searchRange stbk_searchOnly stbk_cnt stbk_asWord sMode stbk_firstFind value Start tbk_linkMemFuncs cancel curSel gIreplaceScript notifyObs curSysBook page,background walkHierarchy .&, " .&, " ,%H.% walkObjects gIreplaceScript false Scripts of all objects stbk_searchRange stbk_canceled walkAllObjects _9updateStatus Background gIreplaceScript curObjType walkObjects 1, "j .&, " , /Ep w, #? cancel _9updateStatus promptValue Cancel Search tbkToolsDlg -+*/<>,()[];^=&.?': itemOffset false stbk_asWord stbk_searchString stbk_foundList wordDelimit stbk_promptChange obRef Yes to all stbk_searchOnly stbk_canceled changePrompt Saving script of curScript tbk_bookRef stbk_firstFind stbk_cnt xcheckForPendingStuff stbk_replaceString stbk_lpMsg Could not save changes to script of Replace? curScriptChanged replaceScript stbk_vRef statusbar updateStatus stbk_canceled buttonRef Start ,%H.% itemOffset searchmode tabPressed .&, " .&, " prompt instructions replacewith firstFind Search Scripts Search and Replace Scripts searchmode search replace replaceWith searchmode tb30win.dll {keyF5} Cssendkeys {keyEscape}+{keyF5} sendkeys editScript keychar wm_keyDown pm_Remove wparam tbk_PeekMessage tbk_peekMessage wm_lButtonDown checkForPendingStuff of Book obRef findString enterpage kdataType formats buttonClick /R/I/T/C/ [yy]yy:mm:dd dateFormats kdataType dd:mm:[yy]yy mm:dd:[yy]yy formats initType V, #> sftsSetFile choice [None] kfieldData String Integer typeString newKF CREATE *ftsGetIniVar kfieldName kfieldType Real Number KEYFIELDS initPage cancel keyDown 1, #> ,%H.% fileList fullName included books ftsSetPage pathAndName sftsKwNum filterList sftsMainBk ToolBook books (*.TBK),*.tbk,ToolBook sysBooks (*.SBK),*.sbk ftsGetFileListDlg Add ToolBook Files bkName splitPath YaddBooks files buttonClick newKF newKF Choice New Hotword Tag Tags may not contain commas or multiple words. eztagEntry String valName Integer Select New Tag: kdataType typeString tbk_bookRef value entry dataType newVal Real Number A Tag of that name already exists. buttonClick ,%H.% ,%H.% obType itemNumber tbk_bookRef pgRef ftsSetPage Pages Using Keyword ' bkRef `/ftsTextlineToList object uogetTitle +niceRef sftsTitleLoc Building list of pages, please wait... Building Page List pgKeywords ftsKeywords closeWaitDlg keywords obName where used openWaitDlg dialog page reference is not currently used. > vwrRef included books pages incBooks < Keyword buttonClick keywords obType obRef xzftsTitle sftsTitleLoc `ftsTitleValue ftsTitleOverride text of titleRef titleLoc obType obRef pgRef titleRef sftsSetFile sftsTitleLoc titleLoc title getTitle -#, #? 1, #> Page number niceRef of book bkName splitPath niceRef initType Enter New Tag: New Hotword Tag Tags may not contain commas or multiple words. eztagEntry String valName Integer kdataType typeString tbk_bookRef value entry dataType Real Number A tag of that name already exists. buttonClick CelAnimation stepsPerCel forever FALSE FixedPath group StepsPerCel integer ShowAllSteps s_anim_animationSettings s_anim_CurrentObject duration steps updateSettings close keyDown updateSettings enterPage leavePage leaveBackground Choice enterPage cancel keyDown .&+ +E ,%H.% .&+ +E sftsSetFile Cancel Continue enterApp send removeIndexMenuItems send removeMenuItems to handle removeIndexMenuItems handle This procedure will make changes to the scripts of all included books. handlerList removeIndexMenuItems send addIndexMenuItems to handle addIndexMenuItems leaveApp fullTextSearch keywordSearch bookRef myHandler includeBooks To undo these changes, the script of this book must be edited. to handle leaveApplication This procedure will make changes to the script of this book. addIndexMenuItems end enterApplication to handle fullTextSearch to handle keywordSearch leaveApplication addIndexMenuItems end leaveApplication *ftsGetIniVar to handle enterApplication enterApplication To undo these changes, the scripts of these books must be edited. Options modifyBooks pgRef ftsSearch ftsSearch indexName You must build a Search Index for this book. fts30mtb.dll Cannot navigate to ftsIndexName fullTextSearch pgRef ftsSearchKeyword indexName You must build a Search Index for this book. ftsSearchKeyword fts30mtb.dll Cannot navigate to ftsIndexName keywordSearch Full Text Search Full Text Search... Keyword Search... addIndexMenuItems Full Text Search Keyword Search removeIndexMenuItems addIndexMenuItems enterApplication removeIndexMenuItems leaveApplication Cancel keyDown sliderMax yshowPath s_anim_dy BottomBar sliderPos vertexPosition objectAnimation updateSettings s_anim_dx startPos Settings slider s_anim_animationSettings $offsetPathBy s_anim_CurrentObject selectionHandles showHandles s_anim_selectedVertex s_anim_PathObject createPath editPath 0,0,-2880,0 FALSE sliderMax showHandles s_anim_dy BottomBar sliderPos updateSettings s_anim_dx startPos settings slider s_anim_animationSettings $offsetPathBy s_anim_CurrentObject constant selectionHandles s_anim_selectedVertex s_anim_PathObject 0,0,2880,0 yshowPath createPath .&+ +E sourceObject of the object. BottomBar The path has been saved as animation $offsetPathBy theVertices vertexPosition Canim_startPosition s_anim_dx objectAnimation startPos s_anim_sourcePage s_anim_animationSettings compilePath s_anim_CurrentObject anim_startSize selectionHandles s_anim_selectedVertex s_anim_dy s_anim_PathObject s_anim_CurvedVertices savePath .&+ +E drawCurve |.verticeCount point2 previousPoint point1 drawHandle compiler editorScripts edrawLine hypotenuseFromVertices s_anim_segLengthList showPath offsetPathBy enterPage leavePage leaveBackground sftsSetFile secName sftsSections [None] CONC_SECTION choice `/ftsListToTextline object itemNumber newSec ftsSection CREATE objNm *ftsGetIniVar exclude ftsExclude initPage cancel keyDown initDialog enterPage [do_buttonDown editorScripts s_anim_PathObject buttonDown do_dragging editorScripts default s_anim_PathObject buttonStillDown do_endDrag editorScripts s_anim_PathObject buttonUp do_curveVertice editorScripts s_anim_PathObject buttonDoubleClick do_keyDown editorScripts s_anim_PathObject keyDown ,!J(" keyUp theTarget setCursor mouseEnter theTarget setCursor mouseLeave reader editorScripts moveVertex vertexPosition vertexPosition |.verticeCount theVertices verticeCount \lastTickCount enterpage USER.EXE mmGetTickCount leavePage myClip milliseconds $setPos \lastTickCount sliderUpdate mmGetTickCount closed getTickCount mmGetTickCount myParent whatTick mmGetTickCount ,3clipRef stopped thumb playing USER.EXE paused \lastTickCount status s_tmp_bnds thumb updateMedia buttonDown newPos myStage myClip milliseconds ,3clipRef _seekClip whatStage updateMedia autoPlayMedia currentWin sliderUpdate preLoadMedia -3clipRef autoCloseMedia lQautoShowMedia stageSizing HautoPlayMedia (hopenClip whatStage myParent <+currentStage autoShowMedia myMode preLoadMedia myViewer mediaSizing whatWin kautoCloseMedia preLoadMedia sliderUpdate currentObj buttonclick llplayClip DystopClip ,3clipRef playing status buttonClick showWidgetsProps ,3clipRef EushowClip mmYieldApp preLoadMedia mmWidgetSysBook (hopenClip HautoPlayMedia llplayClip kQautoShowMedia ,3clipRef TB30WIN.DLL AUTHOR enterPage mmWidgetSysBook kautoCloseMedia closeClip ,3clipRef AUTHOR leavePage myClip ,3clipRef playClip .&+ +E .&+ +E myClip ,3clipRef openClip ,3clipRef closeClip ,3clipRef pauseClip ,3clipRef stopClip myClip ,3clipRef showClip ,3clipRef Z>isReady seekClip ,3clipRef Z>isReady seekClipFromEnd myClip stepSize ,3clipRef m{stepDist Z>isReady stepClip myClip stepSize ,3clipRef m{stepDist Z>isReady stepClipBack FALSE playingpausedstopped isReady myClip setMySize newClip mediaSizing setMySize mediaSizing stretchStage ,3clipRef setMySize bookref stbk_oldCursor tbk_bookRef resize mouseenter stbk_oldCursor mouseleave tbk_selectobject tbk_deleteObject tbk_setROP2 <4tbk_createPen B}tbk_getDC propGroup nameLabel getsystemmetrics tbk_linkDrawFuncs getsystemmetrics 'tbk_releaseDC oldROP2 hOldObject leftbound rightBound valueLabel edrawLine propValue propName buttondown fromPoint tbk_lineto toPoint tbk_moveto drawLine propgroup placement propgroup valueLabel nameLabel ?propValue propName placement sized moved ,%H.% objRef parentbounds myObjs whatStage adjustcontrols BREAKS C&File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 search Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript super/subscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar wwwwwwwwwwwp wpwwwwwwwwwwwp wpwwwwwwwwwwwp wpwwwwwwwwwwwp wwwwwwwwwwwp wwwwwwwwwwwwwp fffffffffff` fffffffffff` fffffffffff` wwwwp xxxpx wwwwwpp wwwwwwp pwwwwwwp wwwwwwp wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww wwwwwwwwwwwwww ffffffffffffff ffffffffffffff ffffffffffffff DDDDDD@ DDDDDDDD@ DDDDD DDDD@ DDDDD DDDD@ DDDDDD DDDDD DDDDDD DDDDD DDDDDD DDDDD DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDDD DDDDD@ DDDDO DDDDD@ DDDDO DDDDD DDDDDDDDDDDDDD DDDDDDDDDDDDDD DDDDD DDDDD@ DDDDO DDDD@ property browser default icon exe icon wwwwwwp wwwwwwp wwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwwwwp wwwwwpx wpwwwwwx pxxxxxp wrwww w"'ww r'"ww "wr'w 'ww"w wwwr' wwww" wwwwr wxwww wwwwx wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wwwww wpwwww pwpww wpwwww wwwww wwwwwp wwwwp wwwwp wwwwp wwwwwwwwww ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffgwww` gsww` b"""` eUUU` c333` ffff` c133` gwwwffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff` wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 333wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 33Dwp wwwwx wwwwwwx wwwwwwwwwwwwwwwwwwwwx wwwwwww wwwwwwwwwwwwwwwww wwwwp wwwwx wwwwwp wwwwx wwwwwp wwwwx wwwwwp wwwwx wwwwwp wwwwwwwwwx wwwwwwwww wwwwwwwwwx wwwwwwwwwwwp wwwwwwwwwwwp wwwwwwwwwwwp wwwwwwwwwwwp ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffgwww` gsww` b"""` eUUU` c333` ffff` c133` gwwwffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff` 333wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww w333w 333wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 333wp 333wwwwx wwwwwwx wwwwwwwwwwwwwwwwwwwwx wwwwwww333 wwwwwwwwwwwwwwwww wwwwp wwwwx wwwwwp wwwwx wwwwwp wwwwx wwwwwp wwwwx wwwwwp wwwwwwwww wwwwwwwww wwwwwwwww wwwwwwwwwwwp wwwwwwwwwwwp wwwwwwwwwwwp wwwwwwwwwwwp wwwwp wwwww wwwwwp wwwwwwwwwwwwwwwww wwwwwww wwwwww wwwww wwwww wwwwww wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwww wwwwww wwwww wwwww wwwwww wwwwwwwwwwwwwwwwwwwwww wwwwwwwwww wwwwwp wwpwwwpwww wwwwwwwwww wwwww wwpwywpwww wwwywwwwww wwxwwwxwww wwwww wwwwwwwww ywwwwwwwww wwwwwwww wwwwwww wwywwwwwww wwwwww wwwwww wwwww wwwwy wwwww wwwwwyw wwwwww wwwwww wwwwwwwww wwwwwwww wwwwwww wwwwwww wwwwww wwwwww wwwww wwwwx wwwww wwwwwx wwwwww wwwwwwx wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwwwww wwwwwwww xxwwwwwwww xxwwwwwwww wxwwwwwwww wwwwwwwwww wwwww wwwww wwwwww wwwwww wwwww wwwww wwwww wwwwwy wwwwww wwwwww wwwwwp wwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwww wwwwww wwwww wwwww wwwwww wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwww wwwwww wwwww wwwww wwwwww wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwxwwxwwww wwwwxwwxwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwxx wwwwxp wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwww wwwwww wwwww wwwww wwwwww wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwww wwwwww wwwww wwwww wwwwww wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwxwwxwwww wwwwxwwxwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwwwxx wwwwxp wwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwww mmc_pause mmc_pause_d mmc_stop mmc_stop_d mmc_play mmc_play_d mmc_ff mmc_ff_d mmc_step_f mmc_stepf_d mmc_rw mmc_rw_d mmc_stepb mmc_stepb_d mmc_play mmc_play_d mmc_pause mmc_pause_d mmc_stop mmc_stop_d mmc_ff mmc_ff_d mmc_step_f mmc_stepf_d mmc_rw mmc_rw_d mmc_stepb mmc_stepb_d skull flourish 1 flourish 2 resize vertex linevertex remove eee/rmJtF e***w ?8??@ SS?AA??Q?QUU~8cT88TP?PPPPSP?? Huz{e/>o< F@j>> RBAtASS ?????e ?A???A?A?(??38 _3PPPq7.3A8(S? @]Q)FF BBBU@ PPP?????S? FfFffQ@Q] SA?AP?AA S?88( T((4(f @Tf@F4 y";;K5 FFf444 8388(4 4Pf>34>883 D?A]] f4@Q( activeWindowHandle caretLocation focus focusWindow mainWindow selectedText selectedTextState selection startup3DInterface startupAutoScriptFile startupBook startupDrawDirect startupHeight startupReaderRightClick startupSysBooks startupUnits startupWidth sys3DInterface sysAlignment sysAutoScriptFile sysBooks sysCentered sysChangesDB sysClientHandle sysCountry sysCurrency sysCursor sysDate sysDateFormat sysDrawDirect sysError sysErrorNumber sysEvening sysFillColor sysFontFace sysFontSize sysFontStyle sysGrid sysGridSnap sysGridSpacing sysHistory sysHistoryRecord sysHotwordsShown sysICountry sysICurrDigits sysICurrency sysIDate sysIDigits sysILZero sysIMeasure sysIndents sysINegCurr sysITime sysITLZero sysLanguage sysLevel sysLineEndSize sysLineEndStyle sysLineSpacing sysLineStyle sysList sysLongDate sysMagnification sysMediaBreakKey sysMediaSuspend sysMMEngineVersion sysMorning sysMousePosition sysNumberFormat sysOpenMedia sysOperatingSystem sysOptimizedSave sysPageScroll sysPageUnitsPerPixel sysPasswords sysPattern sysPolygonShape sysReaderRightClick sysRGBFill sysRGBStroke sysRuler sysRuntime sysShortDate sysShowMRUfiles sysStrokeColor sysSupportedMedia sysSuspend sysSuspendMessages sysTabType sysTabSpacing sysThousand sysTime sysTimeChar sysTimeFormat sysTool sysTransparent sysUnits sysUseWindowsColors sysVersion sysWindowHandle target targetWindow \ex\x\ \y\xj\j jejntjtj jn]ntj e\ejtje \jet\ aYXYXW ejnjn WYXYW WXgXgW WXYae xtnjtn] XWaqY WaYq95 XWaWYXa95 0,2,2,25,0 0,2,1,32,0 0,2,0,56,0 0,0,0,62,90 0,0,9,36,50 0,0,1,31,100 19,1,0,62,90 20,0,9,51,30 20,0,0,62,90 27,1,0,62,90 30,0,0,62,90 30,0,9,51,30 30,1,1,31,100 37,1,0,62,90 38,0,2,55,50 39,0,2,58,50 40,0,9,42,50 40,0,2,62,50 40,0,1,38,100 47,1,0,62,90 60,0,9,51,30 60,0,0,62,90 67,1,0,62,90 70,0,0,62,90 70,1,1,38,100 70,0,9,51,30 77,1,0,62,90 80,0,1,31,100 80,0,9,36,50 80,0,0,62,90 88,1,0,62,90 100,0,9,51,30 100,0,0,55,90 105,1,1,31,100 109,1,0,55,90 110,0,9,51,30 119,0,2,62,25 120,0,2,55,25 120,0,9,42,50 120,0,1,38,100 120,0,0,58,90 121,0,2,58,25 131,1,0,58,90 140,0,9,51,30 140,0,0,62,90 145,1,1,38,100 150,1,0,62,90 150,0,9,51,30 160,0,9,36,50 160,0,1,29,100 160,0,0,60,90 175,1,0,60,90 180,0,0,60,90 180,0,9,51,30 185,1,1,29,100 187,1,0,60,90 190,0,0,60,90 190,0,9,51,30 197,1,0,60,90 198,0,2,53,25 199,0,2,57,25 200,0,0,60,90 200,0,1,36,100 200,0,2,60,25 200,0,9,42,50 210,1,0,60,90 220,0,9,51,30 220,0,0,60,90 225,1,1,36,100 226,1,0,60,90 230,0,0,60,90 230,0,9,51,30 235,1,0,60,90 240,0,1,29,100 240,0,0,60,90 240,0,9,36,50 250,1,0,60,90 260,0,0,53,90 260,0,9,51,30 265,1,1,29,100 269,1,0,53,90 270,0,9,51,30 278,0,2,53,25 279,0,2,57,25 280,0,9,42,50 280,0,2,60,25 280,0,1,26,100 280,0,0,57,90 291,1,0,57,90 300,0,9,51,30 300,0,0,60,90 305,1,1,26,100 310,1,0,60,90 310,0,9,51,30 320,0,1,31,100 320,0,9,36,50 320,0,0,62,90 335,1,0,62,90 340,0,0,62,90 340,0,9,51,30 345,1,1,31,100 346,1,0,62,90 350,0,9,51,30 350,0,0,62,90 357,1,0,62,90 358,0,2,55,25 359,0,2,58,25 360,0,1,38,100 360,0,0,62,90 360,0,2,62,25 360,0,9,42,50 369,1,0,62,90 380,0,0,62,90 380,0,9,51,30 385,1,1,38,100 385,1,0,62,90 390,0,0,62,90 390,0,9,51,30 396,1,0,62,90 400,0,0,62,90 400,0,1,31,100 400,0,9,36,50 415,1,0,62,90 420,0,0,64,90 420,0,9,51,30 425,1,1,31,100 430,0,9,51,30 435,1,0,64,90 438,0,2,55,25 439,0,2,58,25 440,0,0,65,96 440,0,2,62,25 440,0,9,42,50 440,0,1,38,100 455,1,0,65,90 455,1,1,38,100 460,0,0,67,100 460,0,9,51,30 470,0,9,51,30 475,1,0,67,90 480,0,0,65,90 480,0,1,29,100 480,0,9,36,50 495,1,0,65,90 500,0,9,51,30 500,0,0,62,90 510,0,9,51,30 510,1,1,29,100 514,1,0,62,90 518,0,2,50,25 519,0,2,53,25 520,0,9,42,50 520,0,2,57,25 520,0,0,60,90 520,0,1,26,100 533,1,1,26,100 534,1,0,60,90 540,0,1,29,100 540,0,0,57,90 540,0,9,51,30 550,0,9,51,30 553,1,1,29,100 554,1,0,57,90 557,1,9,51,30 560,0,2,55,25 560,0,9,36,50 560,0,0,55,90 560,0,2,50,25 560,0,9,49,45 560,0,9,46,50 560,0,1,31,100 560,0,2,43,25 590,1,1,31,100 594,1,0,55,90 598,0,2,43,25 599,0,2,55,25 600,0,0,55,90 600,0,9,46,50 600,0,9,36,50 600,0,9,49,45 600,0,2,50,25 600,0,1,31,100 630,1,9,46,50 630,1,1,31,100 630,1,2,55,25 630,1,2,43,25 630,1,2,50,25 630,1,9,49,45 634,1,0,55,90